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Vorwort 


Dieses Buch stellt keine Einführung in die Z-89- Maschinensprache dar, 
es ist mehr eine notwendige Bausteinsammlung für Ihre Maschinen- 
sprache-Bibliothek. Deshalb empfehle ich auch die Lektüre von z.B 
Rodnay Zaıs Standardwerk "Programmierung des Z 88", Sybex-Verlag, wenn 
Sie sich bei dem einen oder anderen Befehl doch nicht so sicher sind. 


Durch die fehlende Einführung zur Maschinensprache können wir sofort 
an die "große Programmierung" gehen und haben Zeit +#ür Schneider- 
Spezifisches und komplette Problemlösungen. 


Zum ersten Teil: Die Werkzeugkiste. 

Hier habe ich wichtige Routinen des Schneider-Rons mit ihren Ein- und 
Aussprungsbedingungen beschrieben . 

Dazu gehört auch eine eingehende Erklärung dessen, wie ihr Computer 
Strings, Fließkomma- und Integerzahlen verarbeitet, so daß Sie dann 
auch in Maschinensprache diese Möglichkeiten nützen können. 


Zum zweiten Teil: Routinen und Basicerweiterungen. 


Fertige nützliche Programme und einige Basicbefehle mehr kann man 
immer gebrauchen und diese #inden Sie hier. Dabei soll auch gezeigt 
werden, wie die ROM-Routinen eingesetzt werden können. 

Auch das sehr umfangreiche Schneider-Basic kann Erweiterungen 
vertragen wie z.B. CIRCLE, PAUSE, COPY, TEXT, TAUSCH, um nur einige zu 
nennen. 


Im letzten Teil dann: Hardwareerweiterungen. 

Wert wurde daraufgelegt, einige zusätzliche Hardware-Komponenten sowie 
deren Treiberprogramme vorzustellen. Hier finden Sie D/A- und A/D- 
Wandler, eine RS-232- und 8-Bit-Centronics-Schnittstelle, einen 
24-poligen Ein-/Ausgabeport, einen Timer sowie einen EPROM - Pro- 
grammierer. 


Noch ein Wort zu den Schneider-Computern selber: 

Mittlerweile gibt es drei Systeme, den CPC-444, CPC-664 und den 
CPC-6128, diese drei Typen sind aber nicht restlos miteinander 
kompatibel. Wenn man von der jeweiligen Speichergröße und dem 
eingebauten Diskettenlaufwerk absieht, ist da noch ein erweitertes 
BASIC, das ein geändertes ROM benötigt. Für den BASIC-Programmierer 
ist das nicht weiter tragisch, es gibt ja bestenfalls mal einen 
SYNTAX-ERROR, aber der Rechner stürzt deshalb nicht ab. Auch für den 
Maschinensprache-Programmierer gibt es solange keine Probleme, wie er 
die Sprungtabelle des RAM’s benützt, mit einer kleinen Einschränkung 
allerdings: Die Tabelle der Fließkommaroutinen befindet sich an einer 
etwas anderen Stelle, und die Tabelle für die Integerverarbeitung 
fehlt ganz (zu Gunsten der neuen Befehle). 


Es ist aber alles nicht so schlimm, in der "Werkzeugkiste" sind die 
Unterschiede aufgezeigt. 


Alle Programme in diesem Buch sind auf dem CPC-4564 ohne Anderung 
lauffähig, bei Verwendung auf den anderen Systemen sind nur die 
Einsprünge zu den Rechen-Routinen, wie jeweils angegeben, etwas zu 
verändern. 


Ich wünsche Ihnen nun viel Spaß beim Programmieren und Erweitern Ihres 
Rechners. 


Paul Bauriedli 


Merkzeugkiste 


Dieses Kapitel ist zu Ihrer Unterstützung gedacht. Hier werden einige 
wichtige Routinen des Schneider - Betriebssystems mit ihren 
parametertragenden Registern erläutert. Alle folgenden Ein- 
sprungadressen sind -wenn nicht anders angegeben- auf den Schneider 
Computern 464,664 und 6128 gleich. 


Zum größten Teil sind diese Routinen ja selbsterklärend, aber wo das 
nicht zutrifft, gebe ich Hilfestellung. Die Zeile in Klammern gibt die 
Register an, die die Unterprogramme selbst verwenden. Sie sollten sie 
also PUSHen, wenn sie für Sie wichtige Inhalte tragen. 


KRRRRRRR 


Fangen wir gleich bei den wichtigsten Aufrufen an, dazu gehören das 
Warten auf eine Eingabe von der Tastatur, eine bestimmte Taste prüfen 
und die Ausgabe eines Zeichens auf dem Bildschirm. Diese 
Unterprogramme habe ich gleich darauffolgend in kleine Maschinen- 
programme eingebaut. 


Allgeneine Routinen 


* Prüfe auf gedrückte Taste mittels Tastennummer. 
(Vergleichbar mit dem Basic-Befehl INKEY.) 


t Diese Routine wartet nicht ! ) 
t AF,BC,HL ) 


LD A,Tastennummer 

CALL BBIE 

Flag’s bei Aussprung 

Z = 8, wenn Taste gedrückt wurde und 

Z = I, wenn nicht. 

C-Register hat nun folgende Bedeutung: 
Bit-?7 = I wenn mit Controltaste geschehen. 
Bit-5 = 1 wenn mit Shifttaste geschehen. 


Dazu gleich alle möglichen Tastennummern: 


Feuer 


Feuer 


Feuer 2: 


Funktionstastenfeld: Cursortasten: 


%* Warten auf Taste mit AS - oder Erweiterungscode. 
(Vergleichbar mit Basic-Befehl INPUT.) 
t Diese Routine wartet ! ) 
CAF) 
CALL BBO6 


A enthält das Zeichen 


* Prüfe T e auf ASCII- oder Erweiteru od 
(Vergleichbar mit Basic-Befehl INKEYS.) 
t Diese Routine wartet nicht ! ) 
tAF) 
CALL BBQ9 
A enthält das Zeichen 
Flag’s: 


cC = 1 wenn Zeichen gefunden und 
c = 8 wenn kein Zeichen dann Akku zerstört. 


Es gibt folgende ASCII-Zeichen: ( Werte in Hex.) 


8 - IF sind Steuerzeichen (mit CTRL erreichbar). 
28 - 7E ASCII-Zeichen 

?7F DEL-Taste 

A3 Pfund-Zeichen 
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Ferner folgende Schneider-Spezial-Tasten-Rückgabewerte: 
Funktionstasten 9-9 
Funktionstäste Full Stop 


* Schreibe ein Zeichen 


89 - 


89 
8a 
8B 
sc 
Eo 
Ei 
Fo 
Fi 
F2 
F3 
Fa 
FS 
F6 
F? 
F8 
F9 
FA 
FB 
FC 
FD 
FE 
FF 


COPY-Taste 


TAB 


-Taste 


Schreib-Cursor 


Copy 


-Cursor 


Schreib-Cursor 


Break 
CAPS -Lock-Wert 
SHIFT-Lock-Wert 


keine Taste 


ENTER ohne CONTROL 
ENTER mit CONTROL 


rauf 

runter 

links 

rechts 

rauf 

runter 

links 

rechts 

zum Textanfang 
" Textende 
" Zeilenanfang 
" Zeilenende 


n Bildschirm oder führe Steuercode aus. 


{ Vergleichbar mit Basic-Befehl PRINT.) 


(-- 


) 


A enthält das Zeichen ( 
CALL BBSA 


929-255) 


* Schreibe ein Zeichen auf Bildschirm. Steuercodes werden ebenfalls 


nur ausgedruckt nicht ausgeführt ! 


t AF,BC,DE,HL ) 


(A enth. 
CALL BBSD 


das Zeichen (98-255,wichtig aber nur 2-31). 


Jetzt folgen einige kleine 
Routinen verwendet werden: 


Pass 


4E28 
4E28 


4E28 
4E22 
4E25 
4E27 


Pass 


i errors: 


3E44 
CD1EBB 
28F9 
c7 


2 errors: 


19 
28 
39 
49 
so 
68 
78 
82 
99 
19098 
119 


Beispielprogramme, in denen obige ROM- 


IPruefe auf gedrueckte Taste 
imittels Tastennummer. 


org 
ent 


290928 
20008 


iz.B. warten auf TAB-Taste. 


waitta: 


1d 
cal 
jr 
ret 


a,68 
I #bble 
z,waitta 
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Fass 1 errors: 98 


189 ;Warten auf Taste und Echo auf Bildschirm 

22 ;Abbruch bei ESC-Taste 

32 5; 
4E28 48 org 20909 
4E29 59 ent 22998 

69 ; 

79 ;Steuerzeichen werden ausgedruckt ! 
4E2@9 CDOS6BB 89 call #bb9&6 
4E23 FEFC 979 cp #tc 
4E25 C8 199 ret z 
4E26 CDS5DBB 119 call #bbSd 
4E29 C9 128 ret 

139 5 

149 jSteuerzeichen werden ausgefuehrt ! 
4E2A CD@SBB 159 call #bb96 
4E2D FEFC 168 cp #+c 
4EZF C8 179 ret z 
4E3@ CDS5SABB 189 call #bb5a 
4E33 C9 1998 ret 
Pass 2 errors: 98 
Pass I errors: 99 

19 Warten auf Taste und Echo auf Bildschirm 

15 jwenn Zeichen )=32 dez. war. 

16 Abbruch bei ESC-Taste 

17 $ 
4E29 29 org 290909 - 
4E28 BI] ent 22298 

35 5 
4E22@ CDO9BB 49 loop: call #bb89 
4E23 S28FB 50 jr nc,loop 
4E25 FEFC 62 cp #fc 
4E27 C8 72 ret z 
4E28 FE28 8 cp w... 
4EZA 38F4 978 jr c,loop 
4E2C CD5ABB 199 call #bb5a 
4E2F 18SEF 118 jr loop 
Pass 2 errors: 929 
%* Zeichenausgabe als Grafikzeiche der t rcodes. 


UAF) 


LD A,FF = Grafikausgabe ein 
oder LD A,®8 = Grafikausgabe aus 


CALL BB63 
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* Lies Zeichen von Bildschirm (Vergleicht Matrixen). 


CAF 


) 


CALL BB69 

A enthält das Zeichen wenn lesbar sonst 
A: 8. 

Flag’s: 

C = 1 wenn lesbares Zeichen gefunden sonst 
c=®8. 


* Joysticks einlesen. 


* 


* 


t AF,HL ) 

CALL BB24 

A und H enthalten das Joystick-®-Byte 

L enthält das Joystick-1-Byte 
Das Byte stetzt sich wie folgt zusammen: 

Bit ® Auf 

Bit 1 Ab 

Bit 2 Rechts 

Bit 3 Links 

Bit 4 Feuer 2 

Bit 5 Feuer I 

Bit 6 NC (Nicht verwendet) 

Bit 7? logisch-8 


Eu 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2.2 22 2 2.272 2 2 2 222 2 212 2 2 2 22 2 2 272 


ee ae 


Alle folgende Routinen beziehen 
sich auf den aktuellen 
Stream, d.h. auf das angewählte Fenster. 


ee ae 


Ex 2 2 212 2 2 2 2 2.2 2 2 2 2 2.2 2 2.2 2.2 2.2 2 2 2 2 2 2 2 2 2.2 2 2 2.2 2 2.2 2 2 2 212 22 22 2 22 2 22 22 22 


ream w (8-7) 


t AF,HL ) 


LD A,8-7 
CALL BBB4 
A enthält vorherigen Stream bei Aussprung ! 


Eenster 


h 


t AF,BC,DE,HL ) 


CALL BBöC 
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%* Eenster setzen. 
t AF,BC,DE,HL ) 
LD H,Spalte einer Ecke 
LD D,Spalte der anderen Ecke 
LD L,Reihe einer Ecke 


LD E,Reihe der anderen Ecke 
CALL BBö6ö 


%* Cursor positionieren. 


U AF,HL ) 
LD H,neue Spalte 


LD L,neue Reihe 
CALL BB?5 


* Hole Cursorposition, 


t AF,HL ) 
CALL BB78 


Reg. H enthält Spalte 
Reg. L enthält Reihe 


%* Anwendercursor ein. 


vAF) 


CALL BB?B 


* Anwendercursor aus. 


CAF) 
CALL BB?E 
* Setze Text uf ne F 
(Inknummer:8-1 bei Mode 2,8-3 bei Mode 1,8-15 bei Mode 9). Ink 


vorher definieren, sonst werden die Standardfarben verwendet. Das 
gleiche gilt auch bei allen Aufrufen 


t AF,HL ) 
mit eingesetzter Ink-Numner. 


LD A, Inknummer 
CALL BB9g 


* Hole aktuelle Inknummer. ( Gegenteil der vorigen Routine ) 
tAF) 


CALL BB93 
A enthält Inknummer des Textes 
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%* Besetze Inknummer mit neuer Farbe. (Voraussetzung 
Unterprogramme). 


t AF,BC,DE,HL ) 


LD A, Inknummer 


der vorigen 


LD B,Farbe 1 ( 8-26 ) siehe Handb.Anhang IV/S.& 


LD C,Farbe 2 ( 8-26 ) r = ® 
CALL BC32 


* Hintergrund eines Zeichens durchsichtig ein/aus. 


t AF,HL ) 


LD A mit 2, dann undurchsichtig 
LD A<> 9, dann durchsichtig 
CALL BB9F 


* Hole die Adresse der Zeichenmatrix. 


t AF,HL ) 


LD A mit Zeichen (898-255). 

CALL BBAS 

HL enthält die Adresse des Zeichens. 
Flag’s bei Aussprung: 

C=1 wenn Matrix im RAM und 

cC=8 wenn Matrix im ROM gefunden wurde. 


* Text_invers darstellen bis zum erneuten Aufruf. 
(Hintergrund mit Vordergrund tauschen.) 


t AF,HL ) 


CALL BBPC 


* Grafikfenster Grundeinstellung. {Fenster wird 


gelöscht,nimmt wieder den ganzen Bildschirm ein, 
ein ORIGIN 8,9 und MOVE 98,89 durchgeführt und 
Hintergrund auf INK 1 / INK 8 gesetzt). 


* 


t AF,BC,DE,HL ) 


CALL BBBA 


ve absolut 
t AF,BC,DE,HL ) 


LD DE,neue X-Koordinate ( Breite ) 
LD HL,neue Y-Koordinate ( Höhe ) 
CALL BBC® 


nicht 
es wird 
Vorder-/ 


vier 


15 


* Move relativ. 
t AF,BC,DE,HL ) 


LD DE,neue X-Koord. mit Vorzeichen 
LD HL,neue y-Koord. 
CALL BBC3 


* Origin n 
t AF,BC,DE,HL ) 
LD DE,neue X-Koord. 


LD HL,neue Y-Koord. 
CALL BBC9 


* Hole Origin 
t DE,HL ) 
CALL BBCC 


DE enthält X-Koord. 
HL enthält Y-Koord. 


%* Setze neue Paperfarbe ( als Inknummer ). 


t AF,HL 


LD A, Inknummer 
CALL BB9& 


%* Hole aktuelle Paperfarbe. ( als Inknummer ). 


vVAF) 


CALL BB9F 
A entnält Inknummer des Hintergrundes 


%* Hole tuelle Position de rafikcu rs. 
CAF) 
CALL BBC& 


DE enthält X-Koord. 
HL enthält y-Koord. 


* Setzen ne rafikfenster 
( Die Koordinaten müssen nicht in der Reihenfolge kleiner / grüßer 


eingegeben werden, aber folgende Bedingung erfüllen ). 
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Linker Rand: Rechter Rand: 


Mode 8: vielfaches von 2 vielfaches von 2 - 1 
Mode 1: r ur | = "4-1 
Mode 2: ® "8 " „98-141 


{ AF,BC,DE,HL ) 
LD DE,X-Koord.i 
LD HL,X-Koord.2 
CALL BBCF 

LD DE,Y-Koord.i 


LD HL.Y-Koord.2 
CALL BBD2 


* Lösche da rafikten 
t AF,BC,DE,HL ) 


CALL BBDB 


* Setze Grafikink, ( Inknummer ). 


Es werden nur so viele Inknummern berücksichtigt, wie 
momentanen Modus darstellbar sind ! 


VAF) 
LD A, Inknummer 
CALL BBDE 
%* Hole aktuelle Grafikink. ( Inknummer ). 
tAF) 


CALL BBE1i 
A enthält Inknummer 


%* Setze Grafikhintergrund auf neue Ink, ( Inknummer ). 
vAF) 


LD A, Inknummer 
CALL BBE4 


* Hole aktuellen Grafikhintergrund. ( Inknummer ). 
vAF) 


CALL BBE? 
A enthält Inknummer 


im 
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* Plotte Punkt absolut. 


t AF,BC,DE,HL ) 


LD DE,X-Koord. 
LD HL,Y-Koord. 
CALL BBEA 


* Plotte Punk v 


t AF,BC,DE,HL ) 


mit Vorzeichen 


LD DE,X-Koord. 
LD HL,Y-Koord. 
CALL BBED 


* Ieste einen Punk bsolut, 
t AF,BC,DE,HL ) 


LD DE,X-Koord. 
LD HL,Y-Koord. 


CALL BBF® 


A enthält Inknummer von Punkt od. Inknr. v. Paper 


%* Ieste einen Pun relativ. 


t AF,BC,DE,HL ) 


mit Vorzeichen 


LD DE,X-Koord. 
LD HL,Y-Koord. 


CALL BBF3 


A enthält Inknummer von Punkt od. Inknr. v. Paper 


%* Zeichne Linie absolut. ( Basic-Befehl DRAW ) 


{ AF,BC,DE,HL ) 
LD DE,X-Koord. 


LD HL,Y-Koord. 
CALL BBF& 


* Zeichne Linie relativ. ( Basic-Befehl DRAWR ) 


t AF,BC,DE,HL ) 
LD DE,X-Koord. 


LD HL,Y-Koord. 
CALL BBF9 
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KRIIIIIIIIITTIIIIHITTIIIITTIIIITITIITITITIIIHTIITITIHIHIHHIHIHIHHHIR 


ee 


Wenn Sie nur waagrechte oder senkrechte 
Linien ziehen wollen, gibt es dafür zwei 
wesentlich schnellere Routinen. 


ea 


Eu 2 2 2 22 2 2 2 2 2 2 202 212 2 2 212 212 2 202 22 2 2 2 2 2 202.2 2 212 2 2 22 2 2 2 22 22 272 2.2 2 22.2 2 22 


* Ziehe waagrech n 


* 


* Ein zZ 


Ziehe 


( AF,BC,DE,HL ) 


LD A, Inknummer 
LD DE,Anfangs-X-Koord. 


LD BC, End-X-Koord. 
LD HL, Y-Koord. 
CALL BCSF 


enkrechte Linie. 
t AF,BC,DE,HL ) 


LD A, Inknummer 
LD HL,Anfangs-Y-Koord. 


LD BC, End-Y-Koord. 
LD DE, X-Koord. 
CALL BC62 


hen auf Grafikcursorposition s en. 


(Vergleichbar mit BASIC-Befehlen TAG/TAGOFF.) 


t AF,BC,DE,HL ) 


A enthält das Zeichen (9-255) 
CALL BBFC 


* Frage nach Zeichen pro Zeile, {Je nach Mode verschieden.) 


* 


t AF,BC ) 


CALL BC17? 
B enthält Spalten (19,39,79 bei Modis 8,1,2). 
C enthält Zeilen (immer 24). 


Invertiere e che n 


{ AF,BC,DE,HL ) 


LD B,verschlüsselte Ink ij (siehe nächste Routine) 
LD C,verschlüsselte Ink 2 ( " . . ) 
LD H,Spalte 

LD L,Zeile 

CALL BC4A 
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* 


* 


* 


* 


%* 


28 


Bildschirmmodus setzen (9,1 oder 2). 
t AF,BC,DE,HL ) 


LD A, modus 


CALL BCE 
Bildschirmmodus holen. 

CAF ) 

CALL BC11 

A enthält je nach Mode 8,1 oder 2. 
Bildschir schen mit Ink ®. 

t AF,BC,DE,HL ) 

CALL BC14 
Inknummer verschlüsseln. 


vAF) 


LD A, Inknummer 

tALL BC2C 

A enthält verschlüssite Ink ( sowie sie die modeabhängige 
Bildschirmdarstellung einer Farbe benötigt. 


Ganzen Bildschirm um eine Zeile nach oben oder unten rollen. 
Hardwarescroll-Routine, d.h. der Zeiger für den Antang des 


Bildschirmspeicher steht nicht mehr auf &C299. 
t AF,BC,DE,HL ) 


B= 2, dann nach unten rollen 

B <>@g, dann nach oben rollen 

A enthält verschlüsselte Ink für neu eingefügte 
Zeile. ( siehe vorige Routine.) 

CALL BC4D 


Rolle eine ildschirmteil um ei ach oben oder unten. 
Softwarescroll-Routine, d.h. der Bildschirm wird wirklich in den 
angegeben Grenzen gerollt. Dies ist zwar nicht so schnell, dafür 
werden aber keine Zeiger verstellt. Wichtig bei manchen 
Hardcopy-Programmen. 


t AF,BC,DE,HL ) 


B= 8, dann nach unten rollen 

B <>@, dann nach oben rollen 

A enthält verschlüsselte Ink (wie vor). 
H enthält linke Begrenzung 

D ” rechte ® 

L ” obere ” 

E = untere ” 

CALL BCS5@ 


Disketten- und Kassettenroutinen 


Im folgenden möchte ich die Kassetten- und Disketten- Sprungvektoren 
kurz vorstellen . Da alleine dieser Teil das ganze Buch füllen könnte, 
wollte man die Routinen bis zum letzten erklären, verweise ich -um 
Wiederholungen zu vermeiden- an die im Anhang vorgestellte Literatur. 


Doch den Begriff "Header", der gleich öfter auftaucht, möchte ich 
eingehender erläutern. 


Allgemein: Ein Header ist ein 64 Byte langer Block, bei dem allerdings 
nur die ersten 28 Bytes vom AMSDOS verwendet sind, der Rest steht dem 
Anwender zur vollen Verfügung. Ferner ist dabei der Aufbau bei 
Kassetten- und Diskettenbetrieb gleich. Dieser Header oder Kopfsatz 
wird bei Kassettenbetrieb vor jedem neu aufgezeichneten Block mit ab- 
gespeichert und bei der Verwendung einer Floppy nur einmal am Anfang 
des Aufzeichnungsvorgangs. Die Ausnahme von der Regel bilden dabei die 
ASCII- und COM- Dateien, diese werden nämlich Headerlos abgespeichert. 
Weshalb sich auch beide Dateiarten sehr ähnlich sind. Wenn Sie also 
COM-Dateien unter normalen Umständen (ohne CP/M !) bearbeiten wollen, 
kommen Sie also am besten zu Rande, wenn Sie sie in Maschinensprache 
wie ASCII-Dateien behandeln. 


Und nun der Aufbau des Headers in Bytes! 


t Alle mit "!" gekennzeichneten Bytes haben bei der Disk 
keine Bedeutung !) 


8-15 Dateiname, auf jeweiliges Format (D/K) gebracht. 
! 16 Blocknummer. 
3 17 Wenn <>8 dann letzter Block. 

18 Dateityp, (ASCII,Basic,Binär und geschützt ja/nein). 

ı 19-28 Datenbytes/Satz. 

21-22 Ursprungsadresse, wichtig bei Binär-Files. 
b 23 Wenn <>8, dann erster Block. 

24-25 File-Länge. 

26-27 Einsprungsadresse bei Maschinen-Code. 

28-63 Frei für Anwender. 


* Initialisiere settenmanager 
{ Schließe alle offenen Dateien, setze 19099 Baud, laße 
Meldungen zu.) 
t AF,BC,DE,HL ) 


CALL BC65 


* Setze Schr eschwindigkeit. 
t AF,HL ) 
LD HL mit #A? #. 229090 Baud od. #14D #. 1298 Baud. 


LDA mit #32 * “ " Ds, > 5 Zu ” “. 
CALL BC68 
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* Kassetten ungen ein/aus. 


CAF) 


LD A mit 9 (=ein),<>9 (=aus) 
CALL BC6B 


%* Recorder-Motor ein. 


* Re 


UAF) 


CALL BC6E 

A enthält vorigen Motorstatus (#18=ein/#HEF=aus) 
Flag’s: 

C = 1, wenn’s funktionierte oder 

c = 8 wenn Escape-Taste gedrückt war. 


VAF) 


CALL BC?1 
sonst wie oben. 


* Motor ein oder aus. 


UAF) 


LD A mit #19 #. Ein oder #EF #. Aus 
CALL BC74 
sonst wie oben 


%* Eröffne Eingabedatei auf Kas./Disc. 
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( AF,BC,DE,HL,IX ) 


LD B mit Länge des Namens 
LD HL mit Adresse von Dateinamen 
LD DE mit Adresse eines 2k-Buffers 
CALL BC77? 
HL enthält Adresse von Header. 
DE enthält Ursprungsadresse aus Header (wichtig bei 
Binär-Dateien, bei Basic-Prog. immer #179.) 
BC enthält Dateilänge 
A enthält Dateiart (es zählt nur das Low-Nibble!) 
8 = Basic 
1 = Basic geschützt 
2 = Binär 
3 = Binär geschützt 
6 = ASCII 
Flag’s bei Aussprung! 
C=1,Z=9 wenn’s funktionierte. 
C=9,Z=8 wenn schon eine Eingabedatei offen war. 
c=9,Z=1 wenn Datei auf Disk nicht gefunden oder 
Escape-Taste gedrückt bei Kass.-Betrieb. 


%* Schließe Eingabedatei normal. 


t AF,BC,DE,HL ) 


CALL BC7A 

Flag’s bei Aussprung! 

C=1 wenn ok und 

Cc=£ wenn Datei nicht offen war. 


* Schließe Eingabedatei unmittelbar. 


( Abbruch im Fehlerfall.) 
t AF,BC,DE,HL ) 


CALL BC?D 


* Zeichenweise Lesen aus Eingabedatei. 


t über 2k-Buffer.) 
t AF,IX ) 


CALL BC88 

A enthält Zeichen, wenn Lesen möglich war. 

Flag’s bei Aussprung! 

C=1,Z=9 wenn Lesen möglich war. 

C=9,Z=9 bei Dateiende (EOF) oder nicht geöffneter 


Datei. 
C=8,Z=1 wenn Escape-Taste gedrückt war. 


%* Lies gesamte Datei direkt in Speicher 
t Nicht über Buffer.) 


( AF,BC,DE,HL ) 


LD HL mit Adresse ab der die Daten abgelegt werden. 
CALL BC83 

Flag’s bei Aussprung: 

C=1,Z=8 wenn’s funktionierte. 

C=9,Z=8 wenn Datei nicht offen war. 

C=9,Z=1 bei Escape-Taste. 


* Teste auf EOF. (End Of File =#1A) 


{ Routine vor allem in Verbindung mit zeichenweisem Lesen, um zu 
verhindern,daß man über’s Dateiende liest.) 


tAF,IX ) 


CALL BC89 

Flag’s bei Aussprung! 

C=1,Z=8 wenn Ende noch nicht erreicht. 
C=9,Z=89 wenn Ende erreicht. 

C=9,Z=1 bei Escape-Taste. 
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* Eröffne A e ei. 
t AF,BC,DE,HL,IX ) 


LD B mit Länge des Namens. 

LD HL mit Adresse des Namens. 

LD DE mit Buftferadresse (2k). 

CALL BCSC 

HL enthält die Adresse des angelegten Headers. 
Flag’s bei Aussprung! 

C=9 wenn schon eine Datei offen war. 

C=1 alles klar,Datei offen. 


* hi e_Au ei norm 
t AF,BC,DE,HL,IX ) 


CALL BC8F 

Flag’s bei Aussprung?! 

C=1,Z=8 wenn alles klar. 

C=9,Z=@ wenn Datei nicht offen war. 
C=8,Z=1 wenn Escape-Taste gedrückt war. 


* Schließe Au be ei un e 
{ Alle Zeichen, die noch im Buffer stehen und noch nicht ausgegeben 
waren, sind verloren !) 


{ AF,BC,DE,HL ) 


CALL BC92 


* chenwe Ausgebe n 
t über Buffer.) 


t AF,IX ) 


A enthält das Ausgabezeichen. 

CALL BC95 

Flag’s bei Aussprung: 

C=1,Z=8 wenn’s funktionierte. 

C=8,Z=8 wenn Datei nicht geöffnet war. 
C=9,Z=1 bei Escape-Taste. 


* Gib Datei im Ganzen aus. 
t Nicht über Buffer.) 


{ AF,BC,DE,HL,IX ) 


LD HL mit der Adresse der Daten. 

LD DE mit Anzahl der Daten-Bytes. 

LD BC mit der Einsprungadresse (Binär-File !) 
LD A mit Dateiart. 

CALL BC98 
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Flag’s bei Aussprung:! 

C=1,2Z=89 wenn’s funktionierte 
Cc=2,Z=8 wenn Datei nicht often war. 
C=9,Z=1 bei Escape-Taste. 


* Disc/Kass. ka 
{ AF,BC,DE,HL,IX ) 


LD DE mit Adresse eines 2k-Buffers 
CALL BC9B 

Flag’s bei Aussprung: 

C=1, dann alles OK sonst 

C=8 wenn eine Eingabedatei offen war. 


Sonstige Call’s 


%* Füge neue Basicbefehle (RSX) ins Betriebssystem ein. 


{ Erweiterung muß im zentralen 32k-RAM liegen.) 
t Anwendung siehe auch bei "Neue Basic-Befehle".) 


( DE) 


LD BC mit Adresse der RSX-Kommandotabelle. 
LD HL m.Adresse eines 4-Byte-Buffers f.Verwaltung. 


CALL BCD1 


%* Suche nach der Startadresse irgendeines Befehls. 


(Wenn es sich dabei um einen Befehl des Grundbasic’s -ohne DOS- 
handelt, wird er auch ausgeführt, nicht nur gesucht!) 


{ AF,BC,DE ) 


Befehl:DEFM "DIS","C"+#88 
LD HL,Befehl 
CALL BCD4 
HL enthält die Adresse der Routine und 
C enthält das ROM-Auswahlbyte (bei diesem Bsp.?). 
Flag’s bei Aussprung: 
C=1, wenn Befehl gefunden wurde oder 
C=9 wenn nicht, dann C und HL zerstört. 


* Die Zeit bitte ! 


( DE,HL ) 
CALL BD@D 


DEHL enthalten den 4-Byte-Wert der abgelaufenen 
Zeit seit dem Einschalten in 388stel Sec.. 
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* Setze n e 
CAF) 


DEHL enthalten die "Anwender-Zeit"” 
CALL BD18 


* Setze n n r 
t AF,BC,DE,HL ) 


CALL BD28 


* Versuche ein Zeichen an Drucker zu senden, 


t Bit 7 wird ignoriert, siehe auch 8-Bit-Ausgang in diesem Buch.) 


CAF) 


LD A mit Zeichen 

CALL BD2B 

Flag’s bei Aussprung: 

C=1 wenn’s funktionierte und 

C=8 wenn nicht (es wird nur 9.4 sec. versucht ein 
Zeichen zu senden.) 


CALL BD2E 
Flag’s bei Aussprung 
C=i1 wenn Drucker beschäftigt sonst 


C=8 wenn bereit. 


* Sende Z n ru 
CAF) 
CALL BDS1 


C-Flag immer 1, Zeichen ist verloren, wenn Drucker 
beschäftigt war. 


* Sch r W 
vAF) 


CALL B998 
A enthält ROM-Status 


* Sperre obe OM wie 
UAF) 
CALL B993 


A enthält ROM-Status 
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%* Schalte unteres ROM ein. 
UAF) 


CALL B9B6 
A enthält ROM-Status 


%* Sperre unteres ROM wieder. 


vAF) 


CALL B9Q9 
A enthält ROM-Status 


* Stell en M-S us her. 
vCAF) 


LD A mit altem ROM-Status aus den vorigen Routinen. 
CALL B9BC 


Indirektions 


Die Entwickler des CPC gaben dem Anwender noch eine weitere, sehr 
trickreiche, Möglichkeit mit auf dem Weg um ins Betriebssystem 
einzugreifen. Ich meine damit die sogenannten "Indirekten Sprünge” 
oder kurz "Indirections". 

Diese Sprünge der Sorte C3 xx xx (also ganz normale Jumps) haben es 
in sich, denn mit ihrer Hilfe können Sie den Sinn ganzer Firmware- 
Routinen ändern. Weshalb das so ist, will ich an einem kurzen Beispiel 
erklären. 

Verfolgen wir dazu den Ablauf eines ganz normalen Vorgangs, das 
Ausgeben eines Zeichens auf den Drucker: 

Es beginnt also mit einem Sprung zur RAM-Adresse RBD2B. An dieser 
Stelle steht nun ein weiterer Sprung irgendwo ins untere ROM des 
Computers. Bevor nun im ROM die Bedienung des Centronicsport 
eingeleitet wird, und damit keine weitere Eingriffsmöglichkeit für uns 
mehr besteht, wird wieder zurück ins RAM, zur Adresse &BDFI 
gesprungen. An dieser Stelle steht nun -vielleicht enttäuschend für 
Sie- wiederum ein Sprung zurück ins ROM, wo nun wirklich das Zeichen 
in unserem Beispiel ausgegeben wird. 

Diese Umwege über das RAM geben uns aber die Möglichkeit eigene 
Routinen über die Indirections einzuschleifen und somit, wenigsten zum 
Teil, das Verhalten der Firmware zu beeinflußen. Wie ? - Na, mit einem 
ganz einfachen ändern des Adressteiles im Jump bei Adresse &BDFi in 
unserem Beispiel. 

Insgesamt gibt es 13 Stück dieser sehr vielseitigen Jumps, ab Adresse 
&BDCD im RAM des Computers. An dieser Stelle möchte ich davon nur 
drei, meiner Meinung nach wirklich wichtige herausgreifen. 


An Adresse &BDD9 TEXT OUT AKTION (Zeichen auf Bildschirm geben.) 


» ® &BDEE TEST BREAK (Ein RET an dieser Stelle verhindert 
z.B. ein Unterbrechen des Programmes.) 
* ® &BDFi1 : WAIT PRINTER (Zeichen an Drucker ausgeben.) 


{ Zwei Programme in diesem Buch machen von diesen Möglichkeiten 
gebrauch. ) 
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Fließkomma- und Integerroutinen 


Da auch die Arithmetikroutinen der Schneider-Computer über Sprung- 
tabellen integriert sind und daher eine definierte Schnittstelle 
besitzen, können Sie diese mühelos in ihre Programme einbauen. 


Allerdings tauchen hier die ersten Unterschiede der verschiedenen 
CPC-Rechner auf. Die Fließkommaroutinen sind ja bloß etwas versetzt 
gegenüber dem 454, die Integerroutinen fehlen in der Sprungtabelle der 
664 - und 4128 - Maschinen jedoch ganz. Außerdem sind die Integer- 
Routinen selbst im Basic-ROM statt -wie beim 464- im Betriebssystem- 
Rom. 


Wieder habe ich die von der Systemroutine benützten Register in 
Klammer gesetzt. Also PUSHen und POPen nicht vergessen! 


Fur. Flie, r 
Eigentlich müssen Sie sich um die interne Darstellung einer 
Fließkommazahl überhaupt nicht kümmern, denn Sie geben nur die 
Adressen! der jeweiligen 5-Byte-langen Zahlen an, und alles übrige 


macht das Betriebssystem. 


Die mit den Zeichen ")<" abgegrenzten Adressen geben in der Rei- 
henfoige 664 und 6128 die Einspünge der Nachfolgersysteme von 


Schneider an. 
* Kopiere Fließk von h ) 


6==2 


LD DE,Adr. von Fließkommazahl 
LD HL,neue Adr.Fließkommazahl 


CALL BDSD > BDSE,BD61 < 
u t fi 
(AF,DE,HL) 


LD HL,Integerzahl (B888-FFFF) 

LD DE,Adr.für neue FK-Zahl 

CALL BD48 > BD61,BD64 < 
HL zeigt nun auf Fließkommazahl 


*M E hl_CHL) h_In h 
(Vorzeichen der Fließkommazahl wird nicht berücksichtigt.) 
(AF,HL,I1X) 
LD HL,Adr.von FK-Zahl 


CALL BD46 > BD67,BD6A < 
HL enthält entsprechende positive Integerzahl. 


28 


* Subtraktion I, (HL)=(HL)-(DE). 
(AF,BC,DE,IX,IY) 


LD HL, Adr.von FK-Zahl-1i 
LD DE, Adr.von FK-Zahl-2 
ZALL BDSB > BD7F,BD82 < 


HL zeigt auf Ergebnis 


* Subtrakt (HLI=(DE)I- (HL) 
{AF,BC,DE,IX,IY) 


LD HL, Adr.von FK-Zahl-i 

LD DE, Adr.von FK-Zahl-2 

CALL BDSE > ----,---- 
HL zeigt auf Ergebnis 


* Addition _(HLI=(HLI+(DE) 
(AF,BC,DE,IX,IY) 


LD HL, Adr.von FK-Zahl-i 
LD DE, Adr.von FK-Zahl-2 
CALL BDS58 > BD?9,BD?7C < 


HL zeigt auf Ergebnis 


* Multiplikati (HL)=(HLIS#(DE) 
(AF,BC,DE,IX,IY) 


LD HL, Adr.von FK-Zahl-i 
LD DE, Adr.von FK-Zahl-2 
CALL BDö1 > BD82,BD85 < 


HL zeigt auf Ergebnis 


* Div (HLI=CHLI/E 
(AF,BC,DE,IX,IY) 


LD HL, Adr.von FK-Zahl-1i 
LD DE, Adr.von FK-Zahl-2 
CALL BD64 > BD8S,BD88 < 


HL zeigt auf Ergebnis 


%* Za i Io re ( =( * 


(AF,BC,IX) 


LD HL, Adr.von FK-Zahl 
LD A, Potenz 


CALL BD67 yrBas eng 


HL zeigt auf Ergebnis 


ACCU. 
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* bad u li [4 = } 
{AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


LD A, Potenz 
CALL BDSS > BD76,BD79 < 


HL zeigt auf Ergebnis 


* Logarithmu ur is (HL)=! 19H 
(AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


CALL BD82 > BDA3,BDA& < 
HL zeigt auf Ergebnis 


%* Natürlicher Logarithmus, (HL)I=LOG(HL). 


(AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


CALL BD?7F > BDAQ,BDAS < 
HL zeigt auf Ergebnis 


* Ex {HLI=EXPA 
{AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


CALL BD8S > BDA4,BDAY < 
HL zeigt auf Ergebnis 


* Wurzelziehen (HLI=S@R(HL). 
(AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


CALL BD? > BDIA,BDFD < 
HL zeigt auf Ergebnis 


* nu = 
(AF,BC,DE,IX) 
LD HL, Adr.von FK-Zahl 


CALL BD8SB > BDAC,BDAF < 
HL zeigt auf Ergebnis 


* nu )= 
(AF,BC,DE,IX) 
LD Hi, Adr.von FK-Zahl 


CALL BD88 > BDA9,BDAC < 
HL zeigt auf Ergebnis 
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* Tangens (HLI=TAN(HL). 


(AF,BC,DE,IX) 


LD HL, Adr,von FK-Zahl 
CALL BDS8SE > BDAF,BDB2 < 
HL zeigt auf Ergebnis 


* Arcu n HLI=ATN(HL) 
{AF,BC,DE,IX) 


LD HL, Adr.von FK-Zahl 
CALL BD91 > BDB2,BDBS < 
HL zeigt auf Ergebnis 


* Hole Kon ) =p 
(DE) 


LD HL, freier Speicherplatz für PI 
CALL BD?6 > BD97,BDFA < 
PI ist nach (HL) kopiert 


LD A, (28 für RAD oder <>22 tür DEG) 

CALL BD?3 > BD94,BD97 < 

( Bei CPC 464 ist die Speicherzelle BSF?7_ und bei 
CPC 66464/4128 Bi13 entsprechend geändert.) 


* Vorzeiche E 
(AF,IX) 


LD HL, Adr.von FK-Zahl 

CALL BD&D > BDSE,BDII1 < 

HL unverändert. ‚ 
(Zahl hat Vorzeichen von + nach - od. von - nach + 
gewechselt.) 


*v n r 
(AF,IX,IY) 


LD HL, Adr.von FK-Zahl-i 

LD DE, Adr.von FK-Zahl-2 

CALL BD6A > BD8B,BD8BE < 

HL und DE unverändert. 

Flag’s bei Aussprung je nach Ergebnis: 
(DE) < (HL) C=9 ,„ Z=8 

(DE) > (HL) C=1 , Z=9 

(DE) = (HL) cC=9 ,„ Z=1 


%* Stelle Vorzeichen (Signum) test. 


tAF,IX) 


LD HL, Adr von FK-Zahl 

CALL BD?8 > BD91,BD94 < 

HL unverändert. 

Flag’s bei Aussprung je nach Ergebnis: 


(HLI CO c=1 , z=8 
(HL) = 9 C=8 , z=1 
(HLI >) 9 Cc=9 , Z=8 


ERRRHHHHHHHHIHIHRIHRIHIHHIAIHSIHAIRISBISIHIHHRIHHIHIHIHISIHIHHISHIHIHHI IHNEN: 


Dies waren alle Fließkommaroutinen der Schneider-Rechner, und nun noch 
einige wichtige Konstanten im ROM des 464 mit ihren Adressen und 
Inhalten. Die 664- und 6128- Computer besitzen diese Konstanten eben- 
falls, aber an anderer Stelle. Bedenken Sie, daß bei Aufruf einer 
Rechen-Routine automatisch das ROM eingeschaltet wird, Sie müssen also 
nur die Register HL oder DE mit den Adressen laden. 


KRRRRKKRKTKTIKTKRKIKRKINH HR KRKIKTRKTK IK IHR KHKNKIHKKIHKNKKIKIKRRRII N 


%%_Fließkommakonstanten im ROM des CPC 464 *%* 

Adresse in Hex. Inhalt in Hex. Konstante 

2F53 18 

2F58 129 

2FSD 1999 

2F62 199908 

2F67 122999 

2F6C 12922228 

2F?7i 12999909 

2F?6& 120PA2098 

2F7B 1EF 

2F88 1E19 

2F8S5 1E11 

ZF8A 1E12 

2F8F 1E13 

3881 727186781 =1/SQAR(2) 
3986 593147181 =L06 (2) 
398B 3219829996 =LOG18(2) 
S9CC 29 20 29 99 69 3.5 

3149 A2 DA OF 49 82 3.14159265 =PI 
3295 A2 DA 9F 49 81 1.57979633 =PI/2 
321D 6&E 83 F9 22 FF .318399886 =1/PI 
3222 Bö& 69 BB 364 79 5.55556E-3 =1/1898 
3227 13 35 FA QE 7B 1.74533E-2 =P1/188 
322C DS ES 2ZE 65 86 57.2957795 =188/PI 
328A FE FF FF FF FF -8.5 

3332 29 20 20 09 81 1 


Er Integerarithmetik xx 


Im Gegensatz zur Fließkommaverarbeitung tragen die Register die Zahlen 
selbst und keine Adressen mehr! 

Bei Berücksichtigung des Vorzeichens stehen die Zahlen -32768 bis 
+32767 zur Verfügung und ohne Vorzeichen die Zahlenreihe ® bis 65535. 
Das höchstwertige Bit (MSB) der Zahl stellt gleichzeitig auch das 
Vorzeichen dar. Wenn MSB=1, dann ist die Zahl negativ, sonst positiv. 


Bei den nunmehr folgenden Routinen besteht allerdings ein großer 
Unterschied zwischen CPC 454 auf der einen und den Rechnern CPC 664 
und 6128 auf der anderen Seite. 

Während bei dem 464 alle Routinen ebenfalls über Sprungtabellen 
laufen, sind bei den anderen Rechnern diese nicht mehr in den Tabellen 
zu finden. Außerdem sind sie auch noch im Basic-ROM versteckt. 


Konkret heißt das, daß Ihre Programme um einen CALL-Befehl länger 
werden. Anstatt lediglich einem CALL BDAC beim CPC 4654 müssen Sie nun 
die Maschinencodefolge: 


CALL B92® ıBasic-Rom dazuschalten 
CALL DD4F jEigentliche Routine (bei 664) 


+ür die Addition von HL- und DE-Register eingeben. Dabei braucht der 
Aufruf CALL B99@ nur einmal am Anfang Ihres Maschinencode-Programmes 
zu stehen, das Basic-Rom ist dann immer aktiviert. Sie können dann das 
darunterliegende RAM nur noch mit Schreibzugriffen erreichen. 


Die angefügten Adressen gelten wieder für die beiden neuen Rechner und 
sind mit Ku X Eu kenntlich gemacht, ebenfalls sind die verwendeten 
Register in Klammer. 


* Ad re HL=HL+ 
(AF) 


LD HL, Zahl-1 

LD DE, Zahl-2 

CALL BDAC > DD4F,DD4A < 
HL enthält das Ergebnis 

Flag’s bei Aussprung: 

C=9 wenn MSB=1 sonst C=1 


* Subtr re =DE-HL 
(AF,DE) 


LD HL, Zahl-1 

LD DE, Zahl-2 

CALL BDB2 > DD57,DD52 < 
HL enthält das Ergebnis 

Flag’s bei Aussprung: 

C=2 wenn MSB=1 sonst C=1 
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* Subtrahiere HL=HL- 
tAF) 


LD HL, Zahl-1i 

LD DE, Zahl-2 

CALL BDAF > DD58,DD53 < 
HL enthält das Ergebnis 

Flag’s bei Aussprung: 

C=83 wenn MSB=1 sonst C=1 


* Mu lizier i rzeiche =H 
(AF,BC) 


LD HL, Zahl-i 

LD DE, Zahl-2 

CALL BDBS > DD6®,DD5SB < 
HL enthält das Ergebnis 

DE unverändert 

Flag’s nach Aussprung: 

S=1 wenn Ergebnis negativ sonst S=g 


* Multipliziere ohne Vorzeichen = 
(AF,BC) 


LD HL, Zahl-i 

LD DE, Zahl-2 

CALL BDBE > DD?7,DD72 < 

HL enthält das Ergebnis 

DE unverändert 

Flag’s nach Aussprung: 

C=1 wenn Ergebnis größer als 65535 (hex FFFF) 


* vidiere m Vor n __HL=HL/ 
(AF,BC) 


LD HL, Zahl-1 

LD DE, Zahl-2 

CALL BDB8S > DDA1,DD9C < 

HL enthält das Ergebnis 

DE den möglichen Rest 

Flag’s bei Aussprung: 

S=1 wenn Ergebnis negativ sonst S=9. 


* vidiere oh =HL/ 
(AF,BC) 
LD HL, Zahl-1i 


LD DE, Zahl-2 
CALL BDC1 > DDBS,DDAE < 


HL enthalt das Ergebnis 
DE den möglichen Rest 
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%* Vergleiche die Inhalte von DE-und HL-Register. 


(AF) 


LD HL, Zahl-i 

LD DE, Zahl-2 

CALL BDC4 > DE®7,DE22 < 
HL und DE unverändert 

Flag’s bei Aussprung: 

HL > DE C=1, Z=8 

HL = DE cC=9, Z=1 

HL < DE c=2, Z=8 


* Vorzeich we; 
CAF) 


LD HL,Zahl 

CALL BDC? > DDF2,DDED < 

HL enthält Zahl mit umgekehrten Vorzeichen. 
Flag’s bei Aussprung: 

S = 1, wenn Zahl bei Einsprung positiv war und 
S = 8, wenn Zahl negativ war. 


Restarts, Lowjuwaps, Interrupts 


Der Z-88 besitzt 8 Restart-Adressen im unteren Speicher- bereich, die 
vorwiegend das Betriebssystem nützt, aber auch vom Anwender sehr 
vielseitig verwendet werden können. Dazwischen gibt es noch einige 
Einsprünge, die nicht über RST xx erreicht werden können, sondern die 
CALL- oder JP-Befehle erfordern und hier als Lowjumps bezeichnet sind. 


Schließlich gibt es noch die Interruptservice-Routine bei Adresse 8838 
hex. ( Der Z-88 arbeitet beim Schneider im Interruptmodus 1.). 


Restart @ : 10900 


Power-Up-Entry. Einsprung beim Einschalten des Rechners oder einem 
Reset. Der Speicher wird dabei gelöscht. 


R 1: 


Sprung ins untere ROM oder RAM mit einer Inline-Adresse, d.h. dem 
RST-Aufruf folgt als Datenwort eine 14-Bit-Adresse. Dabei werden keine 
Register verfälscht ! Die ersten beiden Bits haben eine spezielle 
Bedeutung. 


Anwendung 
RST 1 (oder RST #8, je nach Assembler.) 
DEFW Biti15, Bit14 + 14-Bit-Adresse 
Bit14 = 1 dann System-Rom gesperrt 
Bit15 = 1 dann Basic -Rom gesperrt 
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Call #999B : 


Wie Restart 1, nur daß hier die Inlineadresse nicht im Speicher, 
sondern im HL-Register steht. Alle anderen Register sind wieder frei 
tür den Anwender. 


Restart 2: %# 3 


Sprung in ein "Seiten-ROM”. Dieser Restart ist nur interessant, wenn 
eine ROM-Erweiterung nicht mehr in 16k paßt und so der M-Code zwischen 
mehreren ROM’s (max.4) aufgeteilt werden muß. Zu der auf dem Restart 
folgenden Adresse wird #C929 hinzuaddiert, die entsprechende Routine 
aufgerufen und ein anschließendes RET bringt den Programmcounter 
wieder zum aufrufenden Programm zurück (einschließlich alten ROM- 
State). 


Anwendung : 

RST 2 (oder RST #19) 

DEFW Biti5, Biti4, +14-Bit Adresse 
Bit15 +14 können die Werte 9-3 annehmen und 
dieser Wert wird zur momentanen ROM-Select- 
Adresse hinzuaddiert. 


Restart 3 : #21 


Der wohl meist verwendete Aufruf. Mit ihm kann man jede Adresse in 
jedem ROM anspringen bzw. deren Inhalt lesen. Alle Register -mit 
Ausnahme von IY- werden an die Zielroutine übergeben. 


Anwendung !: 


daten: DEFW adresse 
DEFB romselect 

aufruf: RST 3 (oder RST #18) 
DEFW daten 


.... hier geht’s weiter. 


>adresse( ist ein Wert von 228282 bis FFFF, der ROM oder auch RAM 
anspricht, in den mittieren 32k des Speichers immer RAM. ’romselect< 
kann folgende Werte annehmen: 


#99-#FB schaltet das ROM mit der entsprechenden Select- 
Adresse ein (#87 ist z.B. Floppy-ROM) und sperrt 
das untere ROM (von #20099-#8990). 
“FC schaltet das untere und obere ein. 
#FD schaltet das untere aus und das obere ein. 
#FE schaltet das untere ein und das obere aus. 
#FF schaltet beide aus (Zugriff auf ganzes RAM). 


Call #991B : 


Wie Restart S5,nur daß hier die Adresse im HL-Register steht und das 
ROM- Select-Byte im C-Register. 


Restart 4: # 


Dieser Befehl wird verwendet, um bei eingeschalteten ROM’s immer aus 
dem darunterliegenden RAM zu lesen. Entspricht einem "LD A,(HL)"- 
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Befehl. Das HL=Register enthält also die zu lesende Adresse. 


cA # 


ähnlich Restart 3, nur mit dem Unterschied, daß jetzt das HL-Register 
die Aufgabe von "DEFW daten" übernimmt. Das HL- Register ist also beim 
Einspruns nicht mehr frei für den Anwender. 


Anwendung : 


daten! DEFW adresse 

DEFB romselect (siehe Restart 3) 
aufruf:! LD HL,daten 

CALL #9923 


Re H 

Wird hauptsächlich durch die Firmware zum Aufruf einer Routine im 
unteren ROM verwendet, ihm muß als Datenwort die Adresse folgen. 
Dieser Restart kehrt nicht von selber zum aufrufenden Programm zurück, 
entspricht daher eher einem JP-Befehl. Um ihn dennoch zurückkehren zu 
lassen, muß man den Stack manipulieren wie im Beispiel gezeigt. 


Anwendung : 


LD HL,retour 


PUSH HL jRückkehradresse auf Stack 
RST 5 (oder RST #28) 
DEFW adresse 
retour: .....weiter im Programm. 
Restart 6 i  __N9950 


Dieser Aufruf ist vollkommen frei für den Anwender. Es stehen die 
Adressen #00830-#2237 im RAM bereit zur Aufnahme einer Routine evtl. 
mit einem JP-Befehl, wenn der Platz nicht reicht. Bei Restart 646 ist 
immer das untere RAM selektiert. 


rr r =R 


Das Betriebssystem kann unterscheiden zwischen einer Zeitunter- 
brechung (periodisch vom System selber erzeugt) oder einer externen 
Unterbrechung (vom Anwender erzeugt). Dies wird erreicht durch eine 
erneute Freischaltung des Interupts. Liegt das Signal der 
Unterbrechungsquelle dann immer noch an, wird davon ausgegangen, daß 
es sich um eine externe Unterbrechung handelt (Ein periodischer 
Interrupt währe zu diesem Zeitpunkt schon zurückgenommen worden.). 


Handelt es sich um einen Anwender-Interrupt, wird der Code ab #2203B im 
RAM ausgeführt (5 Bytes frei).Eventuell ist ein JP-Befehl ins zentrale 
RAM notwendig, wenn der Platz nicht ausreicht.Weitere Unterbrechungen 
sind nun gesperrt, und ROM - Routinen können nicht ausgeführt werden 
{Der Umschaltmechanismus funktioniert während eines Anwender-Inter- 
rupts nicht. ). Die Software hierzu muß so schnell wie möglich ab- 
gearbeitet sein, um interne Vorgänge nicht vermeidbar zu verzögern, 
und am Schluß die Interruptquelle löschen. 
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Diese Löschung wird bei Verwendung von Z-88 1/0-Bausteinen durch den 
RETI-Befehl erreicht. 


Alles in allem stellt dieser Interrupt auf unterster Ebene für den 
Anwender zwar ein praktikable, aber wenig flexible Methode dar. Eine 
andere und wesentlich bessere Möglichkeit zur Verarbeitung eines 
Interrupts bei den CPC’s ist das Anstoßen eines Ereignisses. Dabei 
kann die Bedienroutine so ins Betriebssystem eingebunden werden, daß 
z.B. alle 1/388 Sekunden ein bestimmter Eingang einer PIO abgefragt 
wird. In diesem Fall kann auch der 8255 unbeschränkt "Interruptfähig” 
werden. 


Dies möchte ich gleich in einem weiterem Teil der Werkzeugkiste 
erklären. 


Schnelle- ımd langsane Ereignisse 


Um es gleich vorweg zu sagen, die Verarbeitung eines Ereignisses ist 
kein lupenreiner Interrupt. Denn dann müßte ja auch irgendein externes 
Gerät (z.B. ein 1/0-Port) diese Unterbrechung auslüsen können ! 


Nein, es handelt sich dabei um periodische Unterbrechungen durch das 
Betriebssystem, die schnellen Ereignisse werden 5322 mal pro Sekunde 
angestoßen und die langsamen in der Sekunde 59 mal. 


Um dennoch -wie versprochen- irgendeinen Eingang des 8255-1/0-Ports 
unterbrechungsfähig zu machen, wird dieser Eingang 308 (oder S5@) mal 
in der Sekunde abgefragt, ob ein bestimmtes Signal anliegt. Die 
Spezialisten unter uns werden jetzt sagen, daß dies nun eigentlich ein 
Polling - Verfahren sei (periodisches Abfragen und Warten auf einen 
Zustand), und sie haben recht ! Nur mit dem feinen Unterschied, daß 
der Rechner nicht pausenlos in einer Schleife hängt und wartet, und 
wartet..., sondern daß bei dieser Methode das Betriebssystem nicht 
nennenswert verzögert wird. Es geschieht ja "nur" alle J98stel 
(58stel) Sekunden. 


Es gibt auch noch die Möglichkeit, die langsamen Ereignisse zusätzlich 
zu verzögern. Diese führen nämlich einen 16-Bit Zähler mit, der erst 
auf Null decrementiert sein muß, bevor das Ereignis nun wirklich 
ausgeführt wird. Damit läßt sich eine Verzögerung von ca. 22 Minuten 
einbauen. Ähnlichkeiten mit den Basic-Befehlen EVERY und AFTER sind 
nicht rein zufällig ! 


Aber jetzt zur Praxis ! 
Ei i n 


Zuerst muß dem Betriebssystem eine Tabelle zur Bedienung des 
Ereignisses angewiesen werden. 


Tabelle: DEFW 9,9 
DEFB 2,9 
DEFW 8 
DEFB 8 


Der Assemblerbefehl DEFS 9 hätte die gleiche Funktion erfüllt. 
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* Schnelles Ereignis initialisieren und einhängen, 
t AF,DE,HL ) 


LD HL,Tabelle 

LD DE,Routinen-Adressse 

LD B,Klasse 

L) C,Romauswahl (kann entfallen w. Routine im RAM.) 
CALL BCES 


Tabelle: = Anfangsadresse der Tabelle (siehe oben). 
Routinen-Adresse:= Startadresse des Anwender Programms. 
Romauswahl: = z.B. 7 wenn Floppy-ROM gemeint ist. 
Klasse: = Bitsignifikant wie folgt: 


7? 6 5 4 3 2 1 2 Bit 


Funktion 


i=koutine im RAM 
9= e im ROM 


Priorität bei gleichzeitigen Ereig- 
nissen. (Hohe Zahl = hohe Priorität.) 


i = Spezielles Asynchron-Ereignis 
( bei Unterbrechung sofortige Bearbeitung.) 

23 = Normales Asynchron-Ereignis 

( wird in Warteschlange vorrangig eingetr.) 


1 = Asynchron (hat Vorrang vor Synchron) 
8 = Synchron (wird in Warteschlange eingetragen nach 
Priorität.) 


* Schn e r W er einhän 
(Muß schon initialisiert gewesen sein.) 


t AF,DE,HL ) 


LD HL,tabelle 
CALL BCE3 


* Lösche schnelles Ereignis aus Liste, 
t AF,DE,HL ) 


LD HL,tabelle 
CALL BCE&ö 
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x Die langsame reign e 


Zuerst wieder die Tabelle für’s Betriebssytem, diesmal etwas länger: 


Tabelle : DEFW 9,9,9 oder: Tabelle : DEFS 6 
Ereignis: DEFW 8 Ereignis: DEFS 7 
DEFB 9,8 
DEFW 8 
DEFB 8 
* n mes Ereignis init r 


{ Wird noch nicht eingehängt !) 
CHL)I 


LD HL,Ereignis 

LD B,Klasse 

LD C,ROM-Auswahl 

LD DE,Routinen-Adresse 


CALL BCEF 
Ereignis: = Teil der Tabelle 
ROM-Auswahl: = wie bei Schnellem Ereignis 
Routinen-Adresse: = Start des Anwenderprogrammes 
Klasse: = Bitsignifikant wie folgt: 


8=RAM-Adresse 
1=ROM-Adresse 
0 C-Reg ! ) 


Priorität bei gleichzeitigen Ereig- 
nissen. Hohe Zahl ist hohe Priorität. 


i = Eiliges Ereignis hat Vorrang vor, 
3 = Nicht-Eiliges Ereignis. 


i = Gleichzeitig 
8 = Nichtgleichzeitig ( Priorität wird ignoriert.) 


* Lan me reignis einhän 
{ Muß schon mal initialisiert gewesen sein.) 


t AF,BC,DE ) 
LD HL,Tabelle 
LD DE,Zählerstart 


LD BC,Ladewert für Zähler 
CALL BCE? 
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Tabelle: = siehe oben 

Zählerstart = Wert in 1/58 Sekunden, der angibt, wann 
das Ereignis zum ersten mal nach dem 
Einhängen aufgerufen wird. Muß >@ sein. 
Ist dabei der Ladewert (in BC) 8, 
handelt es sich um ein einmaliges 
Ereignis. 

Abstand in 1/59 Sekunden von einem Er- 
eignis zum anderen. 


Ladewert f.Zähler: 


* Lan is wieder aust 
t AF,DE,HL ) 


LD HL,Tabelle 

CALL BCEC 

DE enhält den Stand des Zählers, wenn Block einge- 
hängt war sonst DE zerstört.) 

Flag’s bei Aussprung: 

c = 1, wenn Block in eingehängt war, sonst 

c=®8. 


Dieses interessante Thema könnte noch viele Seiten füllen, was aber 
den Rahmen dieses Buches sprengen würde. Wenn Sie sich u.a. noch näher 
mit der Ereignisverwaltung der Schneider - Computer auseinandersetzen 
wollen, rate ich Ihnen zu der Lektüre des "Firmware-Handbuches" von 
Schneider. 

Im Anschluß sehen Sie noch zwei kleine Programme zu den schnellen und 
langsamen Ereignrissen, die vielleicht noch einige Zusammenhänge 
verdeutlichen können 


Zum Schluß noch zwei Tips zu den Interrupts: 


Der NMI ist im Betriebssystem mit keinerlei Software unterstützt, also 
nicht vorgesehen trotz Anschluß ! Leider !! 

Ein Umschalten in den Interupt-Modus 2 (Vektor-Interrupt) ist zwar 
möglich aber nicht ratsam, denn das ganze Betriebssystem ( plus 
Hardware ) beruht eben auf Modus 1. 


Pass 1 errors: 98 


4E29 19 org 22998 

4E29 29 ent 292990 
25 ;Fast Ticker initialisieren 
27 jund einhaengen. 


4E28 Z1SC4E 38 1d hl,tabell 
4E23 11454E 49 1d de,adress 
4E26 8683 52 1d b,%1200@@11 
4E28 BE2S 68 ld c,8 
4EZA CDEBBC 72 call #bce® 
4E2D CP 89 ret 

99 3 


95 ;Fast Ticker wieder 
96 jeinhaengen. 


4EZE ZISC4E 199 1d hl,tabell 
4E31 CDESBC 118 call #bce3 
4E34 C9 129 ret 
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4ES35 
4E38 
4E3SB 


4ESC 
4E3E 
4E48 
4E41 
4E42 
4E44 


4E45 
4E47 
4E4A 


Pass 
Pass 


4E29 
4E29 


4E28 
4E23 
4E25 
4E27 
4EZA 
4E2D 


4EZE 
4E3l 
4E34 
4E37 
4E3A 


4ESB 
4EISE 
4E41 


4E42 
4E48 


4E4F 
4ES1 
4E54 


Pass 
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213C4E 
CDESBC 
c, 


SsES1 
CDSABB 
c9 


2 errors: 


i errors: 


21484E 
2688 
2EBS 
114F4E 
CDEFBC 
c9 


21424E 
116499 
216499 
CDE9BC 
c, 


21424E 
CDECBC 
c9 


sE41 
CDSABB 
c9 


2 errors: 


138 
135 
198 
159 
168 
178 
175 
176 
189 
198 
298 
219 
228 
239 
248 
245 
246 
259 
268 
279 


198 

28 

39 

48 

sg 

69 

78 

893 

98 
199 
119 
1298 
139 
1498 
159 
168 
178 
188 
192 
229 
219 
229 
239 
249 
259 
289 
339 
349 
359 
368 
379 
388 


’ 
Fast Ticker austragen. 


id hil,tabell 
call #bceö 
ret 


; 
;Tabelle fuer interne 
Verwaltung 
tabell: detfw 
defw 
detb 
defb 
defw 
defb 


; 
;Diese Routine wird 399 mal 
sin der Sekunde ausgefuehrt. 


adress: Id a,"Q" 
call #bb5a 
ret 
org 2202909 
ent 20999 

;Slow Ticker Ereignis 

jinitialisieren 
1d hl,ereig 
1d b,%12299229 
1d c,8 
id de,adress 
call #bcef 
ret 

Slow Ticker Ereignis 

jeinhaengen. 
1d hl,tabell 
1d de,128 
id bc, 199 
call #bce? 
ret 

;Slow Ticker wieder 

jaustragen. 

ld hl,tabell 
call #bcec 
ret 


Tabelle fuer Ereignis- 


sverwaltung. 
tabell: defs 
ereig: defs 
’ 


[-} 
7? 


iDieses Programm wird alle 
32 Sekunden ausgefuehrt. 


ld 
call 
ret 


adress: 


a,"A" 
*bb5a 


Stringdescriptoren, Variablenpointer und CALL-Befehle 


Wenn Sie in Maschinensprache programmieren,wollen Sie sicher bald auf 
Werte, die Sie in Basic angelegt haben, seien es nun String-, Integer- 
oder Fließkommavariable, auch von Ihrer Maschinenroutine her zugrei- 
#en. Und um sich mit PEEK und POKE abzumühen, gehört wirklich der 
Vergangenheit an. 


Dazu müssen Sie aber wissen, wie Ihr Rechner diese Variable verwaltet 
und für Sie bereithält. Keine Angst, Ihr Computer unterstützt Sie bei 
der Verwendung seiner Variablen sehr. Ich erkläre das am besten an ein 
paar Beispielen, nach dem Motto: "Ein Bild sagt mehr als Tausend 
Worte". 


Zuerst mal ein kleiner Basic-Dreizeiler: 


19 a$="Die Katze jagd " 
29 b$="die Hausmaus.” 
39 c$=astbs$ 


Dieses Programm (Das Originalprogramm war nur um eine Ausdruckroutine 
länger.) lieferte folgende Variablenpointer oder auf deutsch Varia- 
blenzeiger: 


@as$= 982BB @ebs= 92C2 @c$= 98209. 
Diese Werte können Sie sich mit dem Befehl: 
z.B. PRINT HEX$(@a$,4) 


leicht selber ausdrucken. Das Zeichen @ vor einer Variablen gibt ihre 
Speicheradresse, nicht deren Inhalt an. Dieser Zeiger auf eine 
Variable gibt im vorliegenden Fall eines Strings nur dessen 
Stringdescriptor an, nicht den String. Jetzt haben wir schon wieder 
ein neues Wort, Sie werden sich jetzt fragen, was nun so ein 
Stringdingsda eigentlich ist. Dieses neudeutsche Wort kann man auch 
mit "Zeichenketten-Aufschlüssler” übersetzen und bezeichnet auch dann 
nichts anrderes als eine Zahlenkombination für die Länge und den 
Auffindungsort eines Strings im Speicher des Rechners. Aber bleiben 
wir ruhig beim englischen Wort, es klingt ja so toil. 


Wahrscheinlich bekommen Sie- wenn Sie meinen Rat folgen, und diese 
Werte ausdrucken lassen- andere Zahlen, das liegt daran, daß Ihr 
Programm nicht genau so lang ist wie meines und sich deshalb der 
Variablenspeicher im CPC etwas verlagert, aber der E#ffekt ist der- 
selbe. 


Beim Ausdruck der Speicherumgebung unseres Variablenpointers sehen wir 
gleich die Descriptoren selber: 


Adr. 90 81 92 83 94 925 26 97 ©®8 89 DA BB BC BD BE 93F 93123456789 ABCDEF 


22B9 29 2C 19 32 290 29 90 20 90 Ci 22 BF 89 @1 BO 89 )„.Z..veeeenuner 
22C9 C2 @2 9D_ 9B 91 98 88 CI 82 IC 24 FC DO C1 @2 15 „sonne nuneBennne 
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An Speicherplatz ®2BB steht SF (dez.15), dies ist die Länge von a$ 
einschließlich Leerzeichen (Zählen Sie ruhig nach !). Danach folgt 89 
und #1, diese beiden Bytes geben -in der richtigen Reihenfolge 
gelesen- den Wert 28189 und das ist nun die Adresse des ersten Zeichens 
von a$. Jetzt wissen wir auch, daß ein Stringdescriptor aus drei Bytes 
besteht. Für b$ und c$ gilt das gleiche. 


Sehen wir auch mal bei Adresse 8189 nach: 


Adr. 2O Bl 92 03 94 85 @6 297 @8 29 BA @B BC BD BE @F 9@123456789ABCDEF 


Bı8a 44 69 65 29 AB 61 74 7A 65 20 6A bil 67 64 29 22 Die Katze jagd " 
2198 BDO 19 BO 14 208 23 OC 29 E2 EF 22 64 69 65 _ 20 48 „..."die H 


B1AQ 61 75 73 6D 61 75 73 ZE 22 88 13 00 IE 88 83 13 


Hier steht tatsächlich in voller Deutlichkeit unser a$ und etwas 
später auch b®. 

Die Abspeicherung von c$ folgt auch noch, denn sie ist aus zwei 
Gründen interessant. 


Adr. 920 21 982 93 94 095 Q& 27 O8 897 BA BB BC @D BE BF 9123456789ABCDEF 


9C29 2D 2D 2D 2D 44 _ 69 65 29 4B 61 74 7A 65 _ 28 6A 61 ----Die Katze ja 
9CIQ4 67 64 20 64 69 63 29 48 61 75 _ 73 6D 61 75 73 ZE 9d die Hausmaus. 
9C48 21 BA PD FE 83 28 SF DD 7E 84 B?7 28 B9 CB C6 IE !.... 2er Ten lın.) 


Erstens der Platz selber, direkt unter HIMEM (HIMEM war hier auf 49009 
od. 9C49 hex.). 

Alle Strings, die irgenwie aus einer Berechnung, Verknüpfung oder 
sonst einer Manipulation hervorgegangen sind, werden in der 
Reihenfolge ihres Auftretens direkt unter der Speicherobergrenze ab- 
gelegt. Der Stringspeicher wächst also nach unten und kann irgendwann 
auf das Basic-Programm treffen, mit der Fehlermeldung "Memory full”. 


Zweitens war ja c$ aus a®$ und b$S hervorgegangen und eigentlich nur 
-zusammengefügt- an einem neuen Platz abgelegt worden. 


Das, was hier so unverdächtig klingt, wirft manchmal große Probleme 
auf. Stellen Sie sich nur mal ein Adressenprogramm vor, in dem ja 
bekanntlich bei der Sortierung viele Strings gegeneinander vertauscht 
werden müssen, jede auf diese Art verwurstelte Zeichenkette wird neu 
angelegt! also an einem neuen Speicherplatz kopiert. 

Es versteht sich von selber, daß dabei sehr viel "Stringmüll" anfällt, 
der nicht mehr gebraucht wird, aber dennoch den Speicher belastet. 
Irgendwann wird es dem Computer zuviel und er räumt auf! Dieser 
Vorgang kann einige Minuten in Anspruch nehmen und heißt dann "Carbage 
Collection". Computer können ja nicht schwitzen, aber vielleicht Sie 
wenn Sie nicht wissen, ob Ihr gutes Stück sich nun "aufgehängt" hat 
oder nicht, denn der Rechner gibt währendessen keinerlei Lebenszeichen 
von sich. 


Aber nun wieder zurück zum Thema. 


Bei der Dimensionierung eines Stringfeldes stehen im Feld selber nur 
wieder unsere Descriptoren. Gleich mal ein Beispiel: 


19 DIM a$s(5) 
28 FOR n=8 TO 5:a$(n)="Irgendwas":NEXT 
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Dieses Programm liefert als Variablenpointer von @3$(9),92C8 und an 
dieser Adresse beginnt unser Descriptorenfeld. 


Adr. 90 B1 02 93 9a 05 26 27 98 89 BA BB DC OD BE @F 8123456789ABCDEF 
22C9 28 Ci 92 15 98 81 296 20 989 Al Bl 89 Al Bl BP Al „nuuerreeenennnn 
2208 91 99_AL @1 99 Al 91 97 Al 91 20 20 DO DU DO BO "une nnnnne 


Sie sehen alle Pointer zeigen auf denselben String an der selben 
Adresse, Basic macht es sich hier noch leicht. An ®1Al finden wir 
tatsächlich den String. 


Adr. 28 81 @2 93 984 05 24 87 DE 089 BA BB 2C BD BE OF 28123456789ABCDEF 


2BınAB 22 49 _ 72 67 65 4E 64 77 61 753 22 @1 BO 2998 18 99 "Irgendwas"..... 
81BQ@ IE 89 BF 23 1& 2C 28 FF 73 28 49 823 27 88 E1 28 ...#., 


Sobald wir noch folgende Basic-Zeile einfügen, 


79 a$(3)=a#(3)+" und nochwas” 


ändert sich das Feld folgendermaßen: 


Adr. BO 21 92 93 @4 95 96 97 ©@8 29 BA BOB BC 9D DE OF 9123456789ABCDEF 


22C9 9®@ Ci 92 15 20 @1 96 28 QI AL BI 89 AL DI OP AL „rer ne 
28209 ®@1 15 _2B 9C 987 Al ®91 87 Al ®1 20 20 20 BO DO BO “treu unnrnnnnenn 


Der Stringdescriptor von as(3) -der vierte im Feld, da die Null 
mitzählt- zeigt auf den neuen zusammengefügten String an der Adresse 
9C2B, außerdem hat er auch die neue Länge des Strings übernommen. 


Adr. 28 Q1 92 83 94 205 @& 97 08 99 BA OB BC @D BE BF 29123456789ABCDEF 


9C28 PO 2a 20 MA 200 20 MO DO BO BO BB 49 72 67 65 6E --«r....... Irgen 
9C38 64 77 61 73 28 75 6E 64 28 #E 6F_ 63 68 77 61 753 dwas und nochwas 


Soviel zu den Strings, wenden wir uns nun den Fließkomma- und 
Integervariablen zu. Das gleiche, wie im folgenden für dimensionierte 
Arrays gezeigte gilt auch für einfache Variable. 


Wieder zuerst ein kleines Beispielprogramm: 


19 DIM a(5) 
29 FOR n=8 TO S:a{n)=19”"n:NEXT 


Es wird also ein Fließkommafeld angelegt, das folgendermaßen aussieht: 
Adr. 29 21 ©2 935 94 095 96 97 28 99 BA BB DC BD BE @aF 8123454789ABCDEF 
S1IFB 29 28 Ci 94 21 90 Bl 204 DR 20 20 00 BB 81 DO DO „un !eeernennnnn 


2200 ®2_20@ 84 90 200 99 _ 48 _ 87 20 09 BB _ 7A_ BA BB BO AU . „...H....2...8 
2219 1C_8SE 29 99 50 _ 43 91 43 91 20 22 20 20 BO BO BO ....PC.C..eunen 
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An der Speicherstelle 91F9 {@a(9)} beginnt unser Feld, und wir 
sehen, daß hier die Fließkommazahlen mit ihren 5 Bytes direkt abgelegt 
sind, also keine Zeiger mehr. 


ähnlich sieht es auch bei einem Integerfeld aus nach den Basic-Zeilen: 


18 DEFINT a: DIM a(5) 
2@ FOR n=8 TO S:a(n)=2848+2"n:NEXT 


Das entstandene Feld ab der Adresse 922289 {@a(@))}: 


Adr. 29 B1 @2 23 24 2953 26 97 BE 09 BA BB BC BD BE OF 98123456789ABCDEF 


220989 B1 ®©8 22 98 24 28 BB 98 18 98 20 98 B6 BO 48 87 „neuerer rc. 


Es gilt dasselbe wie bei dem Fließkommafeld Gesagte, nur daß es sich 
bei den Integerzahlen um Werte zwischen ® und 45535 handelt und 
demzufolge diese Zahlen mit zwei Bytes auskommen. 


Nach dieser ganzen Theorie um Variable kommen wir zum Grund dieser 
Ausführungen, dem CALL-Befehl. Vielleicht wissen Sie, daß der 
CALL-Befehl des Schneider-Basics 32 Parameter mitnehmen kann, das kön- 
nen Integerzahlen sowie die Variablenpointer der String- und Fließ- 
kommavariablen sein. Der Befehl könnte deshalb wie folgt lauten: 


CALL adresse, a%,b%, @c8,@d$,...... ...,123,645535,@e(9) 


Integerzahlen können auch direkt übermittelt, String- und Fließ- 
kommavariable müssen über ihre Variablenpointer verwendet werden, da 
nur Zwei-Byte lange Werte berücksichtigt werden. Im anschließenden 
Maschinenspracheteil zeigt das IX-Register auf den letzten Wert in der 
Kolonne und der Accu enthält die Anzahl der Parameter. Bis hierhin war 
also der Basic-Interpreter zuständig, alles weitere muß nun Ihr 
Maschinenspracheteil erledigen. 


Aber gehen wir wieder von einem konkreten Beispiel aus: 


12 a=PI 

29 b%=511 

39 a$="Hallo” 

49 CALL adresse, @2,b%,@a8 
sg ’oder 

69 !BEFEHL,@a,b%, @a$ 


Der CALL-Betehl nimmt drei Parameter mit, die Variable b% und die 
Pointer auf die Variablen a und a$. Übrigens kann ein eingebundener 
Basic-Befehl die gleiche Aufgabe übernehmen. Wie man einen solchen 
neuen Befehl kreieren kann, zeige ich später. 


Nach Aufruf des CALL- oder neuen Basicbefehls sieht die Registerwelt 
der Z-88-CPU im Schneider so aus, wie auf der nächsten Seite gezeigt 
wird: 
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17"Stringdescriptor 


E =Länge von ware 


=Variablenpointer 2284 > 


für String zeigt 
ix+t1) auf Adresse: ” =Adresse von 
String: ———e 0199) H 
ix+2)> =Integer-Variable 
b% selbst. " A) a 


B> 


=Variablenpointer 


für Fließkomma- 
zahl zeigt aut: —e 9275) [paler|ar|e2 


Zahl PI im Fließ- 
kommaformat. 


Ich glaube die Darstellung erklärt sich selber. Ein typisches Ma- 
schinenprogramm könnte so beginnen! 


CP 3 sind auch wirklich 3 Parameter 

RET NZ svorhanden, wenn nicht zurück zu Basic 
LD H, (IxX+1) Adresse des Strindescriptors nach HL 

LD L, (IX+9) ıdas erste Byte des Descrip.=Länge a$ 

LD A, (HL) Länge in Accu 

OR A Zurück wenn Länge = 9, also kein 

RET Z }String da 

INC HL IHL+1, zeigt nun auf Lowbyte Stringadr. 
LD E, (HL) iLowbyte Stringadresse nach E 

INC HL iHL+1, zeigt nun auf Highbyte Stringadr. 
LD D,tHL) sHighbyte Stringadresse nach D 

LD B, (IxX+3) }Highbyte von Integerzahl nach B 

LD c,t1xX+2) ILowbyte “ a ” c 

LD H, (1X+5) }Highbyte von Adr.der Fließkommaz.nach H 
LD L, (Ix+4) sLowbyte ” " ® s “ L 
Nach dieser Programmsequenz steht die Länge von a$ im Accu, die 


Adresse des ersten Zeichens von a8 in DE, die Integerzahl a% in BC und 
die Adresse des ersten Bytes der Fließkommavariablen in HL. 


Eine Erklärung bin ich Ihnen noch schuldig, nämlich die, wie Sie die 
fünf Bytes einer Fließkommazahl interpretieren müssen. Zuerst mal die 
genaue Darstellung des Fließkommaformates: 


——————— MHantisse ———————n | Exponent 


Vorzeichen 1=neg, d=pos —h 
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Die Mantisse besteht aus vier Bytes, wobei Byte 4 -das zugleich auch 
das niederwertigste (Low-Byte) der Gruppe ist- in Bit 8 das Vorzeichen 
der Zahl trägt. Byte 5 stellt den 2er-Exponenten dar, der einen Offset 
von 129 hat. Das heißt, von dem Wert des Exponenten ist immer 129 
abzuziehen, um auf die tatsächlichen Exponenten zu kommen. Mit dieser 
Methode kann der Exponent zwischen -129 und 124 liegen. 


Mit dem folgenden kleinen Basic-Programm können Sie leicht den Wert 
einer beliebigen Fließkommazahl ermitteln, diese steht nach der 
Prozedur in der Variablen x. Wie Sie an die Bytes 1-5 mit dem 
Variablenpointer kommen, wissen Sie ja jetzt! 


19 exponent=2* (byte5-129) 
29 x=exponent#(1+(((bytel/236+byte2) /256+byte3)/256+(byte4 AND &7F))/128) 
3@ IF (byte4 AND &89)=&88 THEN x=-x 
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Verschiedene 
Hc-Routinen 


Bildschirm links und rechts rollen 


Diese beiden kleinen Programme zeigen, wie schnell Maschinen-Sprache 
sein kann. Der ganze Bildschirmbereich umfasst etwas weniger als 16384 
Byte. Jedes Byte wird dabei 8-mal nach links oder rechts mit übertrag 
rotiert. Das sind also (16384 %* 8 =) 131972 Durchläufe ! 

Eine kleine Besonderheit sind dabei die Verwendungen der LDI und 
LDD-Befehle, die hier nur zur Zeigerverwaltung dienen. 

Der Aufruf ist ganz einfach! 


CALL &4E28 oder CALL &4E37? 


Pass I errors: 88 


19 ;Den ganzen Bildschirm 
28@ srollen. 


30 3 

48 jRechts-Scroll 
4E28 sg org 22999 
4E29 68 ent 22290 

78 5; 
4E209 2698 89 1d b,8 
4E22 C5 98 loop: push bc 
4E23 219009 198 ld h1,#c299 
4E26 1199C9 119 id de, #c2209 
4E29 212949 128 1d bc, #429 
4E2C CBIE 139 next: rr (hl) 
4EZE EDAS 149 idi 
4E3@ EAZC4E 159 ip pe,next 
4E33 Ci 168 pop bc 
4E34 19EC 1798 djinz loop 
4E36 C9 189 ret 

199 3 

299 $Links-Scroll 
4E37 9698 219 1d b,8 
4E39 C5 228 loopil: push bc 
4E3A ZIFFFF 239 1d hil,ntttf 
4E3D AIAFFFF 249 ld de,#fttt 
4E48 819949 259 1d bc, #4909 
4E43 CBi6 268 nexti: rl (hl) 
4E45 EDAB 270 1dd 
4E47 EA4S4E 289 jp pe,nexti 
4EgA Ci 298 pop be 
4E4B 1BEC 398 dinz loopi 
4EaD C9 318 ret 


Pass 2 errors: ®® 
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Funktion SCREEN$ 


Das folgende Programm ruft im wesentlichen nur eine ROM- Routine zum 
Lesen eines Zeichens an Kursorposition vom Bildschirm auf. Diese 
Zeichen wird an eine Basic-Stringvariable übergeben, sofern sie die 
Länge von eins hatte. 

Eventuell ist das Programm für Sie so nützlich, daß Sie es mit einer 
RSX-Erweiterung ins Basic einbauen wollen. Wie das geht, zeige ich 
später noch. Bei der Namensgebung "SCREEN$" ließ ich mich übrigens 
durch das Sinclair-Basic leiten, bei dem es die selbe sehr feine 
Funktion gibt. 


Noch ist der Aufruf allerdings nur: 
CALL 29990, @a$ 


Zuvor den Kursor an die entsprechende Stelle bringen ! 


Pass 1 errors: 98 


19 jFunktion SCREEN$ 

28 jlesen eines Zeichens vom 
39 Bildschirm und im String 
48 jabspeichern. 


sg; 
4E29 68 org 202929 
79 5Subroutine verwendet nur (AF). 
4E28 CD6BBB 89 call #bb69 
4E23 DD5681 99 1d h, (ix#+1) 
4E2& DD6E2D 199 id 1, tix+9) 
4E29 46 119 ld b,(hl) 
4E2A 8285 129 dec b 
4E2B 8 139 ret nz 
4E2C 23 149 inc hl 
4E2D 5E 159 1d e,{hl) 
4EZE 23 142 inc hl 
4EZF 56 179 1d d,thl) 
4E3@8 12 189 id (de),a 
4E31 69 198 ret 


Pass 2 errors: 9 


Alaraton 


Ein Programm, das zehnmal hintereinander einen Piepston von sich gibt, 
mag zwar auf den ersten Blick ziemlich uninteressant sein, aber man 
sitzt, während der Computer arbeitet, nicht unentwegt vor dem Bild- 
schirm, dann ist es praktisch, wenn der Computer auf Maschinenebene 
auf sich aufmerksam machen kann. 
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Pass i errors! 99 


4E29 19 org 299299 
4E28 20 ent 2299090 
4E29 969A 39 ld b,19 
4E22 219887D 49 aloop: Id h1,32999 
4E25 2B 59 bloop: dec hl 

4E26 7C 69 1d a,h 

4E27 BS 79 or 1 

4E28 22FB 89 jr nz,bloop 
4E2A SE97 99 1d a,7 

4E2C CDSABB 199 call #bbSa 
4EZ2F 19F1 119 djnz aloop 
4gE31 CP 129 ret 


Pass 2 errors: 28 


Text ausgeben 


Dieses Programm soll eigentlich nur das Zusammenwirken einiger 
Z-89-Befehle mit den ROM-Routinen zeigen. Dabei wird ein beliebiger 
Text ausgedruckt, einschließlich der Steuerzeichen bis zu einem 
Textende-Kennzeichen, für das ich das Null-Byte wählte. 


Aufruf: CALL 29229 


Pass 1 errors: 99 


19 5Ausdrucken eines Textes auf 
28 ;Bildschirm an angegebener 
39 ;5Cursorposition. 

49 ;jByte 3 ist Ende-Kennzeichen 


5a; 
4E29 69 org 229290 
4E29 789 ent 299298 
2901 829 spalte: equ 1 
DOOF 99 zeile: equ 15 

129 5; 
4E29 2691 119 ld h,spalte 
4E22 2ZE®F 129 1d l,zeile 
4E24 CD7SBB 139 call #bb75 

199 5 
4E27 21334E 159 1d hl,text 
4E2A 7E 169 loop: 1d a,(hl) 
4E2B B? 179 or a 
4E2C C8 189 ret z 
4E2D CDS5ABB 198 call #bb5a 
4E3@ 23 290 ine hl 
4E31 18F7? 219 jr loop 
4E33 312E295A 229 text: defm "1. Zeile" 
4E3B S9D9A 239 defb #2d,#da 
4E3SD 322E295A 249 defm "2. Zeile" 
4E45 ODBABS 259 detb #92d,#03,8 


Pass 2 errors: 28 
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Die Befehle LDIR und LDDR 


Wann immer man Programm- oder Datenbereiche im Speicher transferieren 
will, wird man zu den leistungsstarken Befehlen LDIR und LDDR des 
Z-89 greifen. Diese Befehle ersetzen ganze Programmsequenzen auf 
anderen Prozessoren. 

Die Beiden unterscheiden sich in der Abarbeitungsrichtung. LDDR 
kopiert von hinten nach vorne und LDIR umgekehrt. Wichtig ist dieses 
verschiedene Verhalten beim Kopieren von sich überlagernden Bereichen. 
Wenn dabei der falsche Befehl zur Anwendung kommt, wird der 
Quellbereich vor dem Kopieren überschrieben. 


Typische Programmteile und eine kleine grafische Darstellung sollen 
das verdeutlichen: 


LD HL,Quellbereich LD HL,Quellbereich 
LD DE,Zielbereich LD DE,Zielbereich 
LD BC,Bereichslänge LD BC,Bereichslänge 
LDIR LDDR 

RET RET 


von hier 


Z | 


ROM lesen 


Wenn Sie mal einen Blick in die Schneider-ROM’s werfen wollen, dann 
ist das Programm genau richtig. Mit einer Hilfsroutine, die den 
RST-Mechanismus der CPC’s benützt, um auf die Bytes in den 
verschiedenen ROM’s zugreifen zu können, werden i4k-ROM-Inhalte ins 
RAM ab 25992 kopiert. 


Sehen Sie auch bitte in diesem Zusammenhang in der "Werkzeugkiste" bei 
"Restarts” nach. 


Aufruf des Programms mit: 


CALL 24959,9,&FC für unteres ROM 
CALL 24959, &C999,&FC für Basic-ROM 
CALL 24959,&0C929,u.07 +ür AMSDOS-ROM (wenn da !) 
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Pass 1 errors: 2% 


18 ;Beliebiges ROM auslesen 
28 sund ab 259998 ins RAM 
39 ;kopieren. 


49; 
6176 59 org 24959 
61764 FEBY2 68 cp 2 
6178 C® 78 ret nz 
82; 
6177 DD7EB® 99 ld a,(ix+9) 
617C 328Böl 190 1d (wahl),a 
617F DD6EB2 119 ld 1, tix+2) 
6182 DD66B3 129 1d h,tix+3) 
139 3 
6185 DF 148 rst #18 
6186 8961 150 defw rom 
6188 C9 169 ret 
172 3 
6189 BCl 1889 rom: defw read 
618B FC 199 wahl: defb ##c 
200 ; 
618C W190940 219 read: 1d bc, 16384 
si8F 11AB61 229 1d de, 25999 
6192 EDB® 239 ldir 
6194 C9 249 ret 


Pass 2 errors: 928 


Nandle Dezimal nach Hex 


Es ist unter Basic ganz normal, wenn eine Zahleneingabe automatisch 
Binär im Speicher abgelegt wird, ohne den Interpreter müssen wir aber 
selber dafür sorgen, daß eine Zahlenfolge in eine dem Computer ver- 
ständliche Form gebracht wird. 

Stellen Sie sich vor, Sie haben irgendwo im Speicher, -evtl. von einer 
Eingabe her- die Zahlenfolge "54321" in ASCII im Speicher stehen und 
wollen mit diesem Integerwert weiterarbeiten. 

Also müssen Sie diese Zahlenfolge in den entsprechenden Hexadezimal- 
wert "D431" umrechnen, der dann z.B. in ein Doppelregister passt. 

Das folgende Konverterprogramm liefert nur richtige Ergebnisse, wenn 
der Wert zwischen ® und 65535 liegt. 


Das Maschinenprogramm dazu: 


Pass 1 errors: 998 


18 iWandle ASCII-Zahlenfolge 
289 jnach Hexadezimal 


32 ; 
4E28 48 arg 292909 
4E28 59 ent 200990 
68 5 
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4E22 21574E 72 1d hl,hex ;jLoesche Speicher 


4E23 3699 82 id (hl),2 
4E25 23 99 inc hl 
4E26 3698 198 1d (hl),®8 
4E28 23 118 ine hl ihl zeigt nun auf 
4E29 111827 129 1d de, 1929989 53Anfang der Zahlenfolge. 
4E2C CD444E 138 call wandle ;Die jeweilige Konstante 
4EZF 11E893 1428 ld de, 1299 laden und konvertieren. 
4E32 CD444E 159 call wandle 
4E35 1164998 168 ld de,129 
4E38 CD444E 178 call wandle 
4E3B 11BA98 189 1d de,19 
4E3E CD444E 198 call wandle 
4E41 119198 299 id de,i inuetze RET aus Upg. 

2198 3 
4E44 7E 229 wandle: Id a,(hl) JASCII in Accu. 
4E45 D6IB 238 sub "9" JASCII Versatz abziehen. 
4E47 289C 248 jr z,noadd ıBei @ keine Addition. 
4E49 ES 259 push hl iZeiger aufheben. 
4E4A ZAS74E 268 id hl,(hex) ihl ist Arbeitsregister. 
4EaAD 47 278 ld b,a Additionszaehler nach b 
4E4E 19 282 wloop: add hi,de sAddieren. 
4E4F 1OFD 298 djinz wloop 
4E51 22S74E 328 1d (hex),hi Im Speicher ablegen. 
4E54 Ei 318 pop hl ASCII-Zeiger zurueck 
4ESS 23 328 noadd: inc hl und naechstes Zeichen. 
4E56 C9 339 ret 

349 5 
4E57 2008 359 hex: detw 8 
4E59 35343332 369 zahl: defm "54321" 


Pass 2 errors: 28 


Handle Hex nach Dezinal 


Wenn Sie mal in die Verlegenheit kommen und einen 16-Bit Binär-Wert 
dezimal, ohne Vorzeichen -also 8 bis 65535- , darstellen wollen, dann 
haben Sie jetzt ein Programm dazu. Es hat wenig Sinn, es von Basic aus 
aufzurufen, denn dann hat das HL-Register ja jedesmal nur 65535 als 
Inhalt, was hier lediglich als Beispiel gelten soll. 


Es wird nicht verraten, wie das Programm arbeitet, da Sie mit 
Sicherheit selber daraufkommen ! 
Pass 1 errors: 98 


19 ;Dezimaldarstellung einer 
29 ;16-Bit Binaerzahl in HL-Reg. 


39 5; 
BBSA 35 print: equ #bb35a 
4E28 37 org 229298 
4E29 38 ent 229898 
4E28 ZIFFFF 42 id hil,atfttt 
45 5 
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4E23 811927 
4E26 CDSF4E 
4E29 BI1E89I 
4E2C CDSF4E 
4EZF 916498 
4E32 CDSF4E 
4E35 B212ADB 
4E38 CDIF4E 
4ESB 7D 
4E3SC CI4A4E 
4ESF AF 
4E48 SD 
4E41 54 
4E42 3C 
4E43 EDA42 
4E45 39F9 
4E47 SD 
4E48 6B 
4E49 62 
4E4A C638 
4E4C CDS5ABB 
4E4F C9 
Pass 2 errors: 
Hexdunp 


sg 

68 

78 

89 

99 
1998 
119 
128 
138 
148 
159 
168 
178 
188 
199 
229 
219 
229 
239 
249 
259 
269 
279 


output: 


ld bc, 18998 
call aus 

1d bc, 1928 
call aus 

Id bc, 199 
call aus 

id bc,19 
call aus 

id a,l 

ip output 
xor a 

1d e,| 

1d d,h 

ine a 

sbc hl,be 
jr nc,subtcet 
dec a 

ld l,e 

id h,d 

add a,”®"” 
call print 
ret 


Dieses erste umfangreichere Programm kann sehr 
Sie mal neugierig sind und dem Rechner auf’s Byte sehen wollen. Dieses 
Speicher-Dump, wie ihn 


Programm erzeugt 
+olgender Musterausdruck zeigt. 


Adr. 


948 
9C58 
IC6B 
9C78 
9IC88 
9C99 
ICAg 
9CBO 


21 
3c 
FE 
66 
66 
E3 
F4 
18 


2 


ac 
32 
92 
2 
23 
9C 
ES 
F9 


22 


9D 
2D 
28 
26 
7D 
cs 
Di 
DS 


23 


FE 
9D 
85 
24 
E6 
26 
cD 
Ei 


nach 


24 


23 
18 
SE 
CB 
Fö 
198 
E3 
co 


28 
13 
22 
Sc 
2 
7E 
9 
42 


dem Aufruf 


26 


ar 
CB 
co 
CB 
ES 
cD 
cı 
9D 


27 


DD 
86 
BE 
1D 
7C 
c8 
Ei 
ci 


7E 
SE 
BC 
19 
co 
9C 
c5 
2B 


einen 


29 DA BB BC 


284 B7 28 89 
14 32 @D 9D 
cD 12 9D DD 
FA aD 44 DD 
ce 9C ?7D CD 
SE 28 CD FP? 
25 18 7E CD 
78 Bi C8 CD 


3D 


cB 
cD 
sE 
sE 
ce 
9C 
EF 
29 


hilfreich 


BE 


c6 
11 
29 
22 
9C 
23 
9C 
BB 


Der Aufruf für die Bildschirmausgabe lautet dabei: 


oder 


Und für die Druckerausgabe: 


CALL 42900,2,Antfangsadresse, Byteanzahl 


CALL 49888,Anfangsadresse, Byteanzahl 


CALL 49898,1,Anfangsadresse, Byteanzahl 


ar 


SE 
BC 
DD 
DD 
co 
198 
25 
FE 


sein, wenn 


8123456789ABCDEF 


Yaane neBeoten.) 
Zuroneede2eener 


ol derennnneNen 
Feroekr...MD.n.. 
#.U..0.d. cl. 
nn oßBe red zoo. 


„Xoro ne. 
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Die erste Zahl ist die Startadresse des Programms, die zweite ist das 
Druckereinschaltbyte, und die letzten beiden Angaben beziehen sich auf 
den Speicherbereich, den Sie ansehen möchten. 


Das Programm dazu: 


Pass 1 errors: 998 


19 5 HEXDUMP 

289 SSPEICHER IN HEX UND ASCII 

30 ; AUSDRUCKEN. 

49; 
Bcii 59 GETMOD: EQU #BCil 
BCE 68 SETMOD: EQU H#BCBE 
BBSA 78 PRINT: EQU #BBSA 
BD2ZB 89 DRUCK: E@U #BD2B 
BB29 998 READCH: E@U #BB99 
BBO6 198 WAITCH: E@QU #BB2& 

119 5 
9C48 129 ORG 42990 
9C48 ZIBC9D 138 LD HL, DRFLAG 
9C43 FEBS 148 cp 3 ;Bei weniger als 3 Argte. 
9045 299F 158 IR NZ,BILDSC sist Bildschirm Default. 
9C47 DD7Eg4 169 LD A,tIXx+4) 
9CaA B? 178 OR A ;Bei 3 Argumenten prüfe 
9CaB 2899 188 IR Z,BILDSC ;Akku auf 8 0od.<>8 

199 ; 
9C4D CBC6 2989 SET B,(HL) jAkku war <>2, Drucker- 
9Ca4F 3ESC 219 LD A,6®B stlag=e1,Zeilenzähler = 
9C51 329D9D 229 LD (ZEILE),A 569 (pro Seite). 
9c54 1813 239 IR LABi 

248 5 
9056 CBS86 259 BILDSC: RES 8,(HL) 
958 3E14 269 LD A,29 jAkku war 9,Druckerflag=9, 
9CSA 328D9D 279 LD (ZEILE),A 328 Zeilen für Bildsch. 

289 ; 
9CSD CDI1BC 299 CALL GETMOD 
9C68 FEBZ 399 cp 2 
9C62 2895 318 JR Z,LAB1 ;Bei Bildschirmwahl diesen 
9C64 SEBZ 328 LD A,2 kauf Mode 2 setzen wenn 
9C66 CDBEBC 338 CALL SETMOD noch nicht. 

349 5; 
9C67 CD129D 358 LABI: CALL TITEL }Kopfzeile ausgeben. 
9CKöC DD6EBO 368 LD L,(I1X+9@) 3$Anzahl der auszugebenden 
9C6F DDEEBL 378 LD H, (1X+1) Bytes holen.Geteilt durch 
9C72 9694 389 LD B,4 516 =Zeilenzahl. 
9C74 CBSC 398 TEIL1i6: SRL H 
9C7& CBiD 49398 RR L Anstatt ROM-Integerruot. 
9C78 1BFA 418 DINZ TEIL16 54% rechtschieben (=/16) 
9C7A 4D 428 LD c,L iZeilenzähler nach BC 
9C7B 44 438 LD B,H sbringen. 

4498 ; 
9C7C DD6EBZ2 459 LD L,(Ix+2) jAnfangsadresse holen und 
9C7F DD665983 469 LD H, (1X+3) jimmer auf volle 164 Byte 
9c82 7D 479 LD A,L jabrunden. 
9C83 ES6F® 489 AND #F@ 
9C85 6F 498 LD L,A 
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9C86 
9C87 
9C88 
9CSB 
vCc8c 
9CSF 
9c92 


9093 
9C95 
9C96 
9099 
9C9B 
9C9E 
IC9F 


FCAL 
9CA2 


9CAS 
CAS 
CA? 
ICAB 


ICAF 
9CAB 
FCAC 
9CAF 
9CB2 


9CB2 
9CB3 


9CB4 


9CB7 
9CB8 
9CB? 
9CBA 
9CBB 


9CBC 
9CBF 
scci 


9CC2 
9CC5 


9CCE8 
9CC9 
9CCA 
9CCB 
9CCC 
9CCD 


ES 
7C 
CDC89C 
7D 


CDC89C 
CDE39C 
c5 


2618 
7E 
CDC89C 
3E2® 
CDF99FC 
23 
12F4 


ES 
Di 


CDE39C 
ci 
Ei 
c5 


B618 
7E 
CDEFFC 
23 
19F9 


DS 
Ei 


cD429D 


ci 
2B 
78 
Bi 
c8 


CDO9BB 
FEFC 
c8 


CD4D9D 
C3869C 


FS 
or 
ar 
or 
Br 
CDD59C 


599 
518 
529 
532 
549 
559 
569 


579 
598 
599 
698 
618 
629 
639 
649 
659 
668 
678 


688 
699 
728 
719 
729 
738 
749 
758 
768 
778 
788 
799 
899 
819 
829 
839 
849 
859 
862 
879 
889 
879 
998 
919 
929 
939 
949 
959 
9768 
978 
982 
998 
1298 
1919 
1928 
1939 
1949 
1959 
1968 
1979 


3% HAUPTSCHLEIFE * 


; 
WEITER: 


LOOP1: 


LOOP2: 


sFERTIG 


PUSH HL 

LD A,H 
CALL HEXOUT 
LD A,L 
CALL HEXOUT 
CALL SPACE 
PUSH BC 


LD B,16 
LD  A,tHL) 
HEXOUT 
LD A," 
OUTPUT 
INC HL 
LOOP1 


PUSH HL 
POP DE 


SPACE 
POP BC 
POP HL 
PUSH BC 


LD B,16 
LD  A,tHL) 
ASCII 


LOOP2 


DEC BC 
LD A,B 
OR c 
RET Z 


; TEST AUF BREAK 


CALL READCH 


cP #FC 
RET Z 
CALL SEITE 


JP WEITER 


; ENDE HAUPTSCHLEIFE 


; 
HEXOUT: 


PUSH AF 
RRCA 
RRCA 

RRCA 

RRCA 

CALL HEX2 


jAnfangsadr retten. 
}High-Byte Adr.ausgeben. 


;jLow-Byte Adr.ausgeben. 
;4%Space ausgeben. 
}jZeilenzähler retten 


16 Byte als Hexcode 
jausgeben mit einem 
;Zwischenraum. 


iDie um 15 erhöhte Adr. 
;für später nach DE. 


;4 * Space 

;BC-Reg ist im Weg ! 
salten HL-Wert holen. 
;BC wieder zurück. 


;Die gleichen 14 Byte 
inun als ASCII-Werte 
Jausgeben. 


sJetzt den neuen 
swieder nach HL. 


"Antg." 


}Zeilenschaltung 


;Zeilenzähler-i 


iWenn 8 dann zum 
;Basic. 


iWeiter geht’s,aber 
;zuerst Test auf Break. 


; Prüfe ob Seitenumbruch 
joder Pause notwendig, 
jsonst weiter. 


iKlassischer Hexkonverter 
smit schieben, ausblenden 
sund ASCII dazuadieren. 
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9cDe Fi 1988 POP AF 


9CcD1i CDD5S9C 1999 CALL HEX2 
9CcD4 C9 1199 RET 
9CD5S E6SBF 11198 HEXZ: AND #92F 
CD? C638 1128 ADD A,"®" 
9CD? FESA 1139 cP "a. 
9CDB 3892 1149 JR C,ZAHL 
9CDD C627 1158 ADD A,? 
9CDF CDFPFC 1169 ZAHL: CALL OUTPUT 3jHigh od. Low-Nibble ausg. 
9CE2 C9 1178 RET 
1189 ; 
9CES C5 1198 SPACE: PUSH BC 3Unterprogramm für 
ICE | 9694 1299 LD B,4 54% Space ausgeben. 
I9CE6& SE2B 1219 LD Ar 
9CES CDFY9C 1228 LOOPS: CALL OUTPUT 
9CEB 19FB 1239 DJINZ LOOPS 
9CED Ci 1249 POP BC 
F9CEE C? 1259 RET 
1269 ; 
9CEF FEFF 1278 ASCII: CP #7F Nicht in ASCII druck- 
9CF1 53994 1288 JR NC,NOASC jbare Zahlenwerte durch 
9CF3 FE2® 1298 cP ns j"." ersetzen. 
9CF5S 3292 1399 JR NC ,OUTPUT 
CF? S3E2ZE 1318 NOASC: LD A,'." 
1329 ; 
9CF9 ES 1338 OUTPUT: PUSH HL tZeichen ausgeben, ent- 
9CFA 2Z18C9D 1349 LD HL,DRFLAG jweder auf Bildschirm 
9CFD CB46 1358 BIT 8,(HL) soder auf Drucker 
ICFF EI 1368 POP HL 
9D2® 2994 1379 JR NZ, DRUCK2 
9022 CDSABB 1389 CALL PRINT 
9085 C9 1398 RET 
9026 CDZ2BBD 1498 DRUCK2: CALL DRUCK 
9D89 I2FB 1419 IR NC , DRUCK2 
9D8B CP 1429 RET 
1438 3 
9DBC 98 1449 DRFLAG: DEFB ® 
9D2D 29 1458 ZEILE: DEFB 8 
IDBE 4164722E 1469 ADR: DEFM "Adr." 
1479 3 
9D12 ZIBE9D 1489 TITEL! LD HL,ADR 1*Titelzeile ausgeben. 
9D15 94D4 1498 LD B,4 iZuerst "Adr.” printen. 
9017? 7E 1599 LOOP4: LD A,tHL) 
9D18 CDFYFC 1518 CALL OUTPUT 
9D1B 23 1529 INC HL 
9DIC 19F9 15328 DJINZ LOOP4 
1549 5; 
9DIE CDES9C 1559 CALL SPACE ;s4 * Space 
1569 3 
9D21 9619 1572 LD B,16 
923 AF 1589 xOR A sdann 15 mal 2-stellige 
924 F5 1598 LOOPS: PUSH AF }Hexzahlen ausgeben. 
9025 CDC89C 1699 CALL HEXOUT 
9028 3E28 16198 LD A,” 
9D2A CDF9FC 1629 CALL OUTPUT 
9nD2D Fi 1639 POP AF 
9DZE SC 1649 INC A 
9D2F 1B9F3 1659 DJINZ LOOPS 
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9DS1 


9034 
9D3& 
9037 
9D38 
9DSB 
9DSC 
9D3D 


9DSF 


942 
9044 
9D47 
9049 
9DAaC 


9D4D 
9D4E 
9DaF 
9059 
9D53 
9056 
71058 


9D5A 
9D5B 
9DSD 
DER 
9D&2 


9D64 
9D65 
9067 
9067 
9DsB 
DEE 


9D71 
9D72 
9073 
7D74 


Pass 


CDES9C 


2619 
AF 

FS 
CDDS5°C 
Fi 

Bie 
10F8 


CcD429D 


3E2D 
CDFPPC 
3EBA 
CDF9FC 
c 


c5 

DS 

ES 
218D9D 
3ABC9D 
CB47 
ZOBA 


35 
2914 
CDO6BB 
3614 
189D 


35 
299A 
363C 
3ESCT 
CD849D 
cD129D 


Ei 
Di 
ci 
c9 


2 errors: 


1669 
1679 
1689 
1698 
1709 
1719 
1728 
1738 
1748 
1759 
1768 
1778 
1788 
1799 
1829 
1818 
1829 
1839 
1849 
1859 
1869 
1878 
1888 
1899 
19908 
1919 
1929 
1939 
1948 
1958 
1969 
1979 
1989 
1998 
29299 
29198 
2928 
2939 
2948 
2059 
2962 
2978 
2989 
2998 


LOOP&: 


LFCR: 


; 
SEITE: 


; 
DRCKER: 


s 
ENDSEI: 


LOOP& 
LFCR 


A,NOD 
OUTPUT 
A,HOA 

OUTPUT 


BC 

DE 

HL 
HL,ZEILE 
A, (DRFLAG) 
2,A 

NZ, DRCKER 


(HL) 
NZ,ENDSEI 
WAITCH 
(HL), #14 
ENDSEI 


(HL) 
NZ,ENDSEI 
(HL), 68 
A,HDC 
DRUCK2 
TITEL 


HL 
DE 
BC 


;jdann 4 %* Space 


;16 mal einstellige Hex- 
;zahlen ausgeben. 


52% Linefeed ausg. ( Ret 
jvon Unterprg. nützen). 


jLineFeed-Schaltung 


IReg. retten. 


}Zeilenzähler nach HL 
;Prüfe ob Drucker od. 
;Bildschirm 


;Nach 28 Zeilen ist 
;Warten notwendig um 
lesen zu künnen. 
;Zähler wieder 29. 


;Nach 68 Zeilen auf 
;Papier ist Seitenvor- 
3schub notwendig 

und neue Ausgabe der 
;Titelzeile. 


IReg. Zurück. 
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Hardcopy für MODE 2 


Das nun folgende Programm druckt den Bildschirminhalt nur in Mode 2 
aus und soll haupsächlich einige Programmier-Methoden zeigen wie z.B. 
den direkten Zugriff auf den Bildschirm-Speicher, die Umsetzung der 
"horizontalen Bildschirmbytes" in "vertikale Druckerbytes”, die 
Verschachtelung der Programmschleifen und den möglichen Aufbau eines 
solchen Programms im Ganzen. 


Aufruf einfach mit CALL 49999. 


Pass i errors: 9@ 


18 ;Hardcopyprogramm nur 
22 itfuer Bildschirmmodus 2 ! 
25 3+8-Bit-Centronics !! 


se ; 
BD2B 48 toprnt: equ #bd2b 
BDZE 59 busy: equ #bd2e 
Bcil 62 getmod: equ #bcil 
BBiE 79 tstkey: equ #bbie 
c228 82 bildan: equ #c989 

928 5 
9C49 199 org 429298 
9C48 CDi1BC 112 call getmod ;Bei MODE <(>2 zurück. 
9C43 FES2 129 cp 2 
9C45 C8 132 ret nz 
9C46 11AD9C 149 ld de,zeiesc ;jSende Zeilenabstand. 
9049 CDPFYC 152 call send 

168 5 
9caC 9617 178 ld b,25 ;25 Zeilen und &C9Q04 
9C4E 212909 189 id hl,bildan sist Bildanfang (ohne 

192 5 ;3Scroll !!!!). 
9c51 cC5 228 haupt: push bc 
952 ES 2198 push hl 
9C53 CD&B9C 229 call outgra ;Sende Grafikbytes. 
9C56 3E42 239 1d a,66 }Teste Escape Taste. 
9C58 CDIEBB 249 call tstkey 
9CSB Ei 259 pop hl 3Hole Register zurück. 
9c5cC Ci 268 pop be 
9CcS5D CB 279 ret nz iZum Basic wenn Escape. 
9CS5E 115999 289 1d de,88 ;jAddiere neuen Zeilen- 
961 179 299 add hl,de sbeginn. 
9C62 1BYED 398 dinz haupt 
9C64 11B19C 319 1d de,retesc jSende am Schluß Drucker- 
9C67 CDPFPYC 329 call send jeinschaltstellung. 
9CEA C9 339 ret 

349 3 
9C6B 11AB9IC 359 outgra: Id de,graesc }Sende Grafikvorspann. 
9C6KE CDPIFPIC 362 call send 

379 3 
9C71 112908 389 ld de,#289898 Konstante für nächste 
9c74 9659 398 1d b,89 iBytereihe einer Zeile, 
90676 C5 49889 zeile: push bc 189 Bytes/Zeile. 
90677 ES 419 push hl ;jReg retten, 
9C78 BEBS 428 ld c,8 8 Bytes pro Zeichenplatz 
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9C7A EI 439 byte: pop hi juntereinander. 


9C7B ES 448 push hl ;3Stack = Zwischenspeicher 
I9C7C BE6BDE 459 1d b,8 in-Bits/Byte rotieren. 
9C7E CBB6 468 bits: rlc (hl) jrotiere (HL) und samnle 
989 17 478 rla iCarry’s im Akku. 
9c81 19 4839 add hl,de jAddiere Konstante 
9c82 19FA 499 dinz bits 1 nächste Reihe. 
9C84 CD9IHIC 529 call output 3Gib Akku auf Drucker. 
9C87 28D 519 dec c 
9C88 2ZBF® 529 jr nz,byte 
9CBA EI 539 pop hl }Register zurück und 
9Cc8B 23 549 ine hl inächsten Zeichenplatz 
F9c8sc ci >52 pop bc ilesen wenn noch in Zeile. 
9C8D IBE7 569 dinz zeile 
9C8F 11B49C 579 1d de,ltcr }Sende LineFeed und 
9C92 CD9F9C 588 call send }Carriage Return. 
9C95 C9 619 ret 

628 3 
9C96& CD2EBD 638 output: call busy Warte bis Drucker auf- 
9C99 38FB 649 jr c,output jnahmefähig und sende 
9C9B CD2BBD 659 call toprnt jdann. 
9C9E C9 668 ret 

678 I 
9C9F 1A 688 send: 1d a,tde) ;Hilfsprogramm zum 
9CAB B7? 698 or a }Senden diverser 
9CcAI CB 7929 ret z ;Druckersteuersequenzen. 
9CA2 CD9EFIC 719 call output 
CAS 153 729 inc de 
9CA& 18F7 739 jr send 


9CAB 1B4C8992 748 graesc: defb 27,"L",#80,%92,0 
9CAD 1B419892 759 zeiesc: detfb 27,"A",#98,8 
9CB1 1B3298 768 retesc: defb 27,"2",8 

9CB4 | PQADDOS 778 l#cr: defb 19,13,9 


Pass 2 errors: 98 


Schnelle Text-Hardcopy 


Dieses Programm ist die schnellste Hardcopy in diesem Buch, kann zwar 
nur ASCII-Zeichen aber -und das ist was Neues- auch alle Sonderzeichen 
zu Papier bringen, nur keine Grafik. Die Routine testet ein zu 
druckendes Zeichen auf seine Zugehörigkeit zum genormten ASCII- 
Zeichensatz. Wenn der Test positiv war, wird das Zeichen normal 
ausgedruckt, ansonsten wird die Matrix des Zeichens im RAM und ROM 
gesucht, der Drucker kurzzeitig in den Grafikmode gebracht und die 
Originalmatrix des Zeichens geprinted. 


Aufruf nur mit: CALL 415908 


Routine funktioniert unter allen Bildschirmmodis ! 


Pass I errors! 99 


18 ;jSchnelle Texthardcopy,aber 
28 jmit Schneider-Sonderzeichen 
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Bc11 
BB78 
BB?S 
BBIiE 
BB6ß 
BBAS 
BD2B 
BD2ZE 


AZ1C 
AzıC 
AZIF 


A229 
A223 
A224 
A225 
A227 
A228 


A22A 
A2ZB 
A22D 


AZZF 
A239 


A232 
A233 
A234 
A237 
A238 
A2SB 
A2SD 
A2ZSF 
A242 


A244 
A246 
A249 
A24B 
AZ4E 
AZ4aF 
A251 
A254 
A255 
A256 


A258 
A259 
A2SA 


A2SC 
A2SD 
A269 
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CD78BB 
ES 


CD11BC 
3C 

47 
3EBA 
87 
19FD 


47 
BE1Y 
ZEg1 


c5 
2629 


24 

ES 
CD?S5BB 
Ei 
CD69BB 
3882 
3E2@ 
CDs1A2 
19EE 


SEBA 
CDBEA2 
SESD 
CDBEA2 
ES 
3E42 
CD1EBB 
Ei 

ci 
2994 


2C 
2D 
28D3 


Ei 
cD?5BB 
c9 


39 

49 

59 

69 

78 

so 

78 
198 
119 
129 
158 
148 
159 
169 
179 
189 
199 
299 
219 
229 
239 
249 
259 
268 
278 
289 
299 
398 
318 
329 
338 
349 
359 
362 
379 
388 
399 
4909 
419 
422 
439 
449 
459 
469 
479 
489 
499 
529 
sı18 
329 
339 
549 
559 
568 


578 
588 
599 
699 


2 
getmod: 
getcur: 
curpos: 
tstkey: 
readch: 
getmat: 
print: 
busy: 

; 


mult: 


equ #bcil 


equ #bb?8 
equ #bb75 
equ #bble 
equ #bbsB 
equ #bbaS 
equ #bd2b 


equ #bd2e 
org 41599 
call getcur 
push hl 


call getmod 


inc a 

ld b,a 
id a,18 
add a,a 


djnz mult 
1d b,a 
1d e,25 
1d 1,1 


3 Hauptschleife 


haupt: 


5 
zeile: 


okzei: 


; 
escape: 


push bc 
id h,® 


ine h 

push hl 

call curpos 
pop hl 

call readch 
jr c,okzei 
ld a," " 
call output 
dinz zeile 


1d a,19 
call toprnt 
1d a,13 
call toprnt 
push hl 

1d a,66 
call tstkey 
pop hl 

pop bc 

ir nz,escape 
inc 1 

dec c 


jr nz,haupt 


pop hl 
call curpos 
ret 


; Ende Hauptschleife 


;Kursorposition merken. 


s Im Akku nun 8,1,2 (Mode). 
}Accu plus 1 

3Als Multzähler verwenden. 
sAdditionskonstante 

;Nach Durchlauf im Akku 
29,98 0od.88 (Zeich. /Mode) 


}Neuer Zähler je nach Mode 
125 Zeilen und bei 
;Spalte 1 beginnen. 


3Spalte und Zeile retten 
iZeile 8 (gibt es nicht). 
iZeile +1. 

iKursor auf Spalte/Zeile. 
}Zeichen an Kur.Pos.lesen. 
}Im Zeichensatz vorhanden? 
iWenn nicht dann Space. 
}Zeichen ausgeben. 


Eine Zeile bearbeiten. 


}Zeilenschaltung. 


jEsc. gedrückt ? 
;jReg. zurück 


}jAus wenn Esc. 


inächste Zeile 
;Zeilenzähler-i 
Ganzer Bildschirm. 


;jAlte Kursorposition 
iholen und setzen. 


A2Z6l 
A262 
A263 
A265 
A267? 
A269 


A26B 
AZ6E 
AZöF 
A278 


A271 
A274 
A276 
A279 


A27B 
A27C 
AZ7E 


A288 
A282 


A283 
A286 
A289 
A28B 
AZSC 


A294 
A296 
A299 
A297B 
AZ9IE 
AZAg 
AZAS3 
A2A4 
A2A? 


AZ2AF 
AZAA 
AZAD 


AZAF 
AZB1 
A2ZB2 
AZB3 


A2BS 
A2BS 
A2B? 


AZBB 
A2BC 
AZBD 


ES 
cs 
CB?F 
ZOBA 
FE28 
38296 


CDBEA2 
ci 
Ei 
c9 


CDASBB 
3995 
CD83A2 
1819 


DF 
89A2 
1814 


83A2 
FC 


118CA2 
219809 
EDBS 
c9 


3EiB 
CDBEA2 
SE4B 
CDBEA2 
3E38 
CDBEA2 
AF 
CDBEA2 
2698 


c5 
Z18CA2 
26098 


CB2& 
17 
23 
19FA 


CDBEA2 
ci 
19EE 


ci 
Ei 
c9 


619 
629 
639 
649 
659 
669 
678 
688 
698 
799 
718 
729 
738 
748 
758 
769 
779 
788 
798 
829 
819 
829 
839 
849 
859 
869 
870 
889 
898 
999 
918 
929 
9389 
948 
952 
969 
979 
980 
998 
1290 
1919 
1929 
1939 
1949 
1959 
1968 
1978 
1989 
1999 
1199 
1119 
1129 
1139 
1149 
1159 
1169 
1179 
1189 


; 
output: 


; 
noasc: 


rom: 


rerom: 


; 
chcopy: 


buffer: 
s 
outgra: 


push 
push 
bit 
jr 
cp 
jr 


call 
pop 
pop 
ret 


call 
jr 
call 
jr 


rst 
defw 
jr 


detw 
defb 


1d 
ld 
ldir 
ret 
defs 


1d 
call 
1d 
call 
ld 
call 
xor 
call 
id 


push 
ld 
1d 


ric 
rla 
inc 
dinz 


call 
pop 
dinz 


pop 
pop 
ret 


hi 

be 

7,a 
nz,noasc 


c,npasc 


toprnt 
be 
hl 


getmat 
nc,rom 
chcopy 
outgra 


#18 
rerom 
outgra 


chcopy 
#tc 


de,buffer 
bc,8 


be 
hl,buffeı 
b,8 


(hl) 


hi 
bits 


toprnt 
be 
byte 


be 
hi 


jReg. aufheben. 

;iZeichen >127 dann Grafik. 
}Zeichen (32 dann Grafik. 
;Normales ASCII-Zeichen 


ausgeben 
;Reg. zurück. 


}Matrix von Schneider- 
}Sonderzeichen holen 
jaus ROM oder RAM. 


}jMatrix aus ROM holen. 


sHilfsprogramm zum 
;Matrix in RAM kopieren. 


sEsc)"K"58}89 senden. 


}Dieses Programm macht aus 
}"horizontalen" Zeichen- 
sbytes "vertikale"Drucker- 
ibytes. 
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AZBE CD2EBD 1198 toprnt: call busy iWenn Drucker bereit 


AZC1 38FB 1298 jr ce,toprnt sdann senden. 
A2C3 CD2BBD 1219 call print 
A2C& C9 1229 ret 


Pass 2 errors: 98 


BEISPIELAUSDRUCK 
FmAFREBAR KIA E AS 6 N? 
*+MıvteHNiıe, oo #GEI >)AäBS& 
lah#p"! | ex «9232 9 rn I Ar r 
RT aAEBT<CHEF SI S AD AD 
Ready 
call 41599 


Nini - Monitor 


Ein nicht zu unterschätzendes Hilfsmittel zum Testen von mehr oder 
weniger kleinen Maschinen - Routinen. Das Basicprogramm versteht sich 
als Grundinstrument und kann jederzeit zu einem umfangreicheren 
Monitor erweitert werden, evtl. mit dem Hex-Dump-Programm aus diesem 
Buch. 


Die eigentliche Besonderheit ist das dazugehörige Maschinen- Programm, 
welches eine Registerübernahme von und zum Basic erlaubt. Dabei wird 
etliche Male der sonst so sorgsam gehütete Stack des Prozessors 
gezielt ausgetrickst. Wenn ein Register nach einem PUSH in ein anderes 
zwecks Tausch gePOPt wird, ist das ja noch harmlos. Wenn aber noch mit 
den Rücksprungadressen gespielt wird, dann wird’s ernst. 


Erinnern wir uns, ein RET holt vom Stapel eine Adresse und springt zu 
ihr, diese Adresse wurde vorher durch einen CALL- Befehl auf dem 
Stapel abgelegt. Soweit, sogut - aber hier ist es anders, die Adresse 
wird nicht durch einen CALL erzeugt, sondern durch ein offenes PUSH HL 
! Deshalb dürfen wir in Zeile 569 auch nicht mit CALL springen -denn 
dann wäre ja wieder eine neuerer Stapeleintrag erfolgt-, sondern mit 
RET ! Was in diesem Fall einem CALL gleichkommt. In diesem Programm 
wird davon gleich zweimal Gebrauch gemacht und zwar sowohl für den 
Sprung zum Anwenderprogramm nach dem ganzen Register-Laden als auch 
bei der Rückkehr von diesem zum Programm-Teil, der die Registerinhalte 
wieder in Basicvariable packt. 


Die PUSHes in den Zeilen 1398 und 1698 sind dafür offen, d.h. sie haben 
kein gleichwertiges POP im Programm. 


Der Aufruf erfolgt mit 


CALL 49228,Startadr.Anwender ‚@Register..... 


Und nun zuerst das Basic-Programm und dann das Maschinen - Programm. 
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19 

29 

38 

48 

45 

sg 

62 

79 

82 

92 

129 
119 
129 
159 
149 
159 
169 
178 
189 
198 
299 
219 
228 
239 
248 
259 
269 
278 
289 
299 
329 
319 
329 
339 
349 
3580 
368 
378 
388 
398 


Pas 


9c4 
9c4 
9c4 


7c4 
9c4 
9c4 
94 
9c4 


’%%%%%%* Mini-Monitor *#%%%* 
FRRRRKKRKRRRKKRKRNKIKKNIKRKN IR 
DEFINT a-z:CLS:MEMORY 29999 
LOAD"minimon.bin", 490000 
’Data-Zeilen mit Ihrem Programm 
DATA cd, #9,bb,47,e6,8f,fe,82,c9 
DATA 1070 

» 

adresse=30009 

WHILE as<)"1909" 

READ a$:wert=VAL("L"+a$) 

POKE adresse, (wert AND 255) 
adresse=adresset+i 

WEND 

POKE adresse,&C9’ Noch’n RET -- sicher 


’Register mit beliebigen Werten laden. 


ist sicher! 


a=&FFif=&B: atfS=HEXS (256%a+4,4) 1af=VAL("R"+a4$) 


be=&FFFFide=&Q:ihl=&9:iy=&ß 


’Hilfsroutinenaufruf 


CALL 40009, 30000,8a#,8bc,8Sde,Shl,Siy 


"Ausdruck 

PRINT” P® 

PRINT" "An 

PRINT" SZ H UNC" 
PRINT"Flag= "}BIN$(af AND 255,8) 
PRINT 


a$=LEFTSCHEXS(af,4),2) 

PRINT"Akku= "jasj" hex",USING "HHHHHH dez.";VALU"E"+a$) 
PRINT 

PRINT"BC = ";5HEX$S(bc,4);5 " hex”,USING 

PRINT"DE = ";jHEX$(de,9);5 " hex",USING 

PRINT"HL = "5HEXS(hl1,4)5 " hex”,USING 

PRINT"IY = "jHEX$(iy,4)5 *" hex",USING 

END 

s il errors: 988 


19 ;Hilfsprogramm zum 
29 jAustesten diverser 
38 }Maschinenroutinen 


48 jmit Registeruebergabe 


59 jvon und zum BASIC. 


69 3; 
23 79 org 49990 
2 FEBS 89 cp 6 
2 c® 99 ret nz 

1929 5 

118 }Stack manipulieren! 
3 21849C 129 1d hl,rueck 
6 ES 139 push hl 
7 DD6EBA 148 1d 1,tix+19) 
A DD669B 159 id h, (ix+t11) 
D ES 169 push hl 


"HHRHHH dez.";bc 
"RHHRRH dez.";de 
"AHHAHN dez.";hl 
"HHHHHH dez.";iy 
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9CA4E 
9c51 
9c54 
9C55 
9C56 
9c57 
9C58 


9C5A 
9CSD 
IC6B 
9C6l 
9C62 


9C63 
9C66 
9069 
IC6A 
9C6B 
IC6C 
9C5&D 


9C5E 
9c71 
9c74 
9C75 
9C76 
9C77 


9C78 
7C7B 
9C7E 
IC7F 
CSS 
9c8l 
9C82 


9C83 


9c84 
9C85 
9C88 
9C8B 
9CBC 
9CBD 


9CBE 
ICBF 
992 
9C95 
9C96 
9097 
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DD6EB 
DD66B1 
SE 

23 

56 

D5 
FDE1 


DD6EBS 
DD6697 
4E 
23 
46 


DDsEBE 
DD6689 
SE 
23 
56 
DS 
Fi 


DD6sEB4 
DD6695 
SsE 
23 
56 
D5 


DDEEB2 
DD6683 
SE 
23 
56 
EB 
Di 


c9 


ES 
DD6EB4 
DD6685 
73 
23 
72 


Di 
DD4EB2 
DD6683 
73 
23 
72 


178 
189 
199 
299 
219 
229 
238 
249 
258 
269 
278 
289 
299 
399 
319 
329 
339 
348 
358 
369 
379 
382 
399 
499 
419 
429 
439 
449 
459 
468 
479 
489 
498 
528 
319 
529 
532 
549 
558 
562 


579 
589 
3972 
622 
618 
629 
638 
649 
659 
669 
678 
689 
6978 
7809 
718 
729 
739 
749 


’ 
jiy-reg 


ibce-reg 


jaf-reg 


sde-reg 


ihl-reg 


ijgetrickstes Return ausfuehren 


sdurch 2.Stackmanipulation 
jtuehrte ein ret hierher! 


laden 

1d 1,tix+9) 
ld h,tix+1) 
1d e,in)) 
inc hl 

1d d,(hl) 
push de 

pop iy 

laden 

ld 1,tix+6) 
1d h, (ix+7) 
1d c,tn]) 
inc hl 

1d b,(hl) 
laden 

1d 1, tix+8) 
1d h,tix+9) 
id e,(hl) 
inc hl 

ld d,thl) 
push de 

pop af 

laden 

1d 1,tix+4) 
1d h, (ix+5) 
id e,(hl) 
inc hl 

1d d,(hl) 
push de 

laden 

ld 1,tix+2) 
1d h, (ix+3) 
id e,(n]) 
inc hl 

1d d,thl) 
ex de,hl 
pop de 


ret 


ide nach variable 


rueck: 


push hl 
1d 1, tix+4) 
1d h, (ix+5) 


Id (hl),e 
inc hl 
1d (hl),d 


Jjhl nach variable 


pop de 
1d 1, tix+2) 
1d h, (ix+3) 


1d (hl),e 
inc hl 
1d (hl),d 


759 ;jiy nach variable 


9C98 DD6EBD 769 id 1, tix+9) 

9C9B DD66EB1 779 ld h, (ix#+1) 

9C9E FDES 789 push iy 

CAD DI 798 pop de 

9cAl 73 898 1d {hl),e 

9CA2 23 819 inc hl 

9cAS 72 829 1d (hl),d 
8389 jbc nach variable 

9CAI DDEEBE 849 1d 1,tixt6) 

9CA? DD66Q7 859 1d h, (ix+7) 

9cAA 71 869 1d (hl),c 

9CAB 23 879 inc hl 

ICAC 78 889 ld (hl),b 
898 jaf nach variable 

9CAD DDSEDBE 999 1d 1, tix+8) 

9CBd DD66B9 918 1d h, tix+9) 

9CB3 FS 929 push af 

9CB4 Di 939 pop de 

9CcBS 73 948 id (hl),e 

9CB6 23 959 ine hl 

9CB?7 72 968 1d {hl),d 

9CBB C9 979 ret 


Pass 2 errors! 99 


Data - Generator 


Sie kennen sicher das Problem: Sie wollen ein Maschinen - Programm 
handlich verpackt einem Bekannten zugänglich machen, ohne daß dieser 
umständliche Ladeprozeduren in Kauf nehmen muß ! 

Diesem Zweck dient das folgende Programm, welches aus einem 
Maschinen-Code wieder Basic-Data-Zeilen erzeugt. Viel ist zu diesem 
Programm nicht zu sagen, nur soviel, daß die Data - Zeilen mit einem 
kleinen Lader als ASCII-File abgespeichert werden. 

Das ist auch der Grund, warum Sie keine Schwierigkeiten mit dem MERGEn 
in ein bestehendes Basic-Programm haben werden. Die älteren CPC-464 
haben ja noch einen Fehler in der MERGE-Routine ( Die Token eines 
Basic-Programms können z.T. als EOF - Bytes interpretiert werden.), 
der hier aber keine Rolle mehr spielt. 


128 INPUT"Filename (ohne Extension)"jfiles 

139 IF LEN(file$)>8 THEN PRINT CHR$(7):GOTO 128 
149 PRINT " 

159 INPUT"Anfangsadresse eingeben : ";janf 

168 INPUT"Endadresse eingeben : "jende 

178 IF ende<anf THEN PRINT CHR$(7):G0OTO 159 

189 ’ 

198 ’Basic-File erzeugen 
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218 OPENOUT file$+".bas" 

228 PRINT#9,"19 FOR n="janf;" TO "jende 

239 PRINT#9, "289 READ a$:wert=VAL (CHRS(38)+a$)" 

2498 PRINT#9,"32 POKE n,wert:NEXT n" 

25@ PRINT#9,"40 ’" 

269 ’ 

2798 ’DATA-Zeilen erzeugen 

2B8 esse genspasTaane 

299 zeile=1@@:PRINT#9,zeile;5" DATA "j 

399 zaehler=1 

31®@ FOR n=anf TO ende 

328 a$=HEX$(PEEK(n),2) 

33@ IF INT (zaehler/16)<>(zaehler/16) THEN PRINT#9,a%;","; ELSE PRINT# 
9,a$:IF n<)>ende THEN zeile=zeile+1@:PRINT#H9,zeile;j" DATA "; 
349 zaehler=zaehler+i 

359 NEXT 

368 PRINT#9 

379 CLOSEOUT 


Breakpoint 


Wenn Sie mal ein Maschinen-Programm geschrieben haben, das auch nach 
der dritten Nachtschicht einfach nicht laufen will und sich trotz 
aller Bemühungen mit einem bunten Bildschirm verabschiedet, ist es 
Zeit für eine Durchforstung nach einem Fehler mittels einer Break- 
point-Verarbeitung. 

Nur, so einfach ist das nicht, denn auch in einem funktionierenden 
Programm ist der Stack nicht zu jeder Zeit ausgeglichen. Also ist ihre 
rettende Rücksprungadresse zum Basic mehr oder weniger verschüttet. 


Da gibt es aber einen relativ einfachen Weg. Wenn der Basic- 
Interpreter zu einer Anwenderroutine springt ( Dabei ist es egal, ob 
ein CALL- oder RSX-Befehl dies auslöste.), dann ist der oberste 
Eintrag auf dem Stapel die Rücksprungadresse zur Interpreter-Schleife. 
Also den Stackpointer, der ja einen Zeiger auf diesen Eintrag bildet, 
VOR der eigentlichen aufzurufenden Routine in einer Speicherzelle 
ablegen. Dies übernimmt der Befehl LD (speich),SP - wie im 
anschließenden Programm aufgeführt. 

Wenn Sie nun irgendwo in Ihrem Programm einen CALL zu einer Routine 
setzen, der den Stapelzeiger wieder auf diesen Eintrag setzt, kommen 
Sie mit einem anschließenden RETurn wieder ins Basic. 


Aber erstens ist es nicht so praktisch, jedesmal den 3-Byte Befehl 
eines CALLs in die Routine zu packen, und zweitens wollen Sie ja 
sicher auch die Registerinhalte nach diesem Rücksprung sehen. Es hätte 
ja keinen Sinn, wieder im Basic-Programm zu landen, ohne zu wissen, 
weshalb das Programm nicht läuft, und um dies zu erkunden sind die 
Registerinhalte und vor allem die Flag’s sehr wichtig. 

Dem ersten Problem begegnen wir durch einen RESTART- Befehl, der wie 
ein CALL wirkt, aber nur ein Byte verbraucht. Dieser RST-6-Befehl 
bewirkt zwar einen Sprung zur Adresse #38, aber ein einfacher "JP 
breakp”" bringt uns zur eigenlichen Routine. 


Jetzt sind wir endlich im eigentlichen Breakpoint-Programm und gehen 
an das zweite Problem. 
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Wenn wir schon den Stapel manipulieren, dann auch gleich richtig ! 
Zuerst koppeln wir mit DI das Betriebssystem ab. Ab jetzt sind Sie 
alleiniger Herr und Meister über den Stapel des Rechners ! 

Dann legen wir mit einem neuen Stapel-Zeiger einen Benutzer-Stapel an, 
PUSHen die ganzen Register darauf, lassen den Stackpointer auf die 
Rücksprungadresse zum Basic zeigen, lassen auch das Betriebssytem 
wieder zugreifen nach dem EI-Befehl und springen zu guter Letzt mit 
dem anschließendem RET ins Basic. Fertig ! 


Die Registerinhalte können Sie nun aus dem angewiesenen Puffer- 
bereich von Basic mit PEEK auslesen. 


Aber nicht vergessen, vor jedem zu untersuchenden Programm zuerst den 
Stackpointer retten ! 


Das Programm: 


Pass 1 errors: 998 


19 ;Breakpoint 


20 5-72 

A624 39 org 42598 

A684 F3 49 breakp: di 

A6BS5 I124A6 52 1d sp,puffer+12 

A688 FS 68 push af 

A689 C5 72 push bc 

A6BßA DS 89 push de 

A62B ES 99 push hl 

A6&ßC DDES 199 push ix 

A6&sBE FDES 119 push iy 

A61@ ED7B16A& 129 ld sp, (speich) 

A614 FB 139 ei 

A615 C9 149 ret 

A616 2920 159 speich: defw 8 

A618 29009009 168 puffer: defw 8,92,2,2,2,2 
178 $----------------------- 
189 5An Adr. #38 poken ! 

A624 CIQ4AS 198 jp breakp 
288 I ----------------------- 


2189 }Vor jedes zu testende 
228 Programm setzten ! 


A627 ED7316A6 238 1d (speich),sp 
248 I------- 2-00... 
259 sAls Aufruf dann : 

A62B F7? 269 rst #38 


Pass 2 errors: 28 


Vier Routinen zur Listenverarbeitung 


Programm 1: 


Es wird untersucht, ob ein im Akku angegebenes Byte in einer Liste 
enthalten ist. Der starke Befehlssatz des Z-88 macht es möglich, daß 
das ganze Suchen mit einem einzigen Befehl erledigt werden kann. Wenn 


67 


das Byte in der Liste war, ist nach Beendigung des CPIR-Befehls das 
Zerro-Flag 1 sonst ®. 


Programm 2: 

Gibt an, wie oft ein im Akku angegebenes Byte in einer Liste enthalten 
ist. Nach Aussprung enthält das DE-Register die Anzahl der gefundenen 
Einträge. 

Eine Abart des CPIR- Befehles, der CPI- Befehl besorgt jetzt die 
Hauptaufgabe. Da dieser Befehl sich nicht automatisch wiederholt, kann 
er auch in einer Schleife erweitert werden. Dafür muß aber dann auch 
von außen gesorgt werden, daß sich der Befehl wiederholt, dies 
geschieht mit einem "JP-Parity-Even-Befehl". Es gibt leider keinen 
relativen Sprung mit dieser Bedingung. 


Programm 3: 


Es kann folgendermaßen umschrieben werden: Prüfe eine Liste mit vier 
Einträgen, ob ein bestimmtes Byte -wieder im Akku- vorhanden ist, 
merke dir den Platz des Eintrages, hole dann aus einer Tabelle mit 
Sprungadressen die entsprechende und führe dann ein Anwenderprogramm 
aus. 

In diesem Zusammenhang ist die Methode interessant, wie aus dem 
gefundenen Listeneintrag eine Adresse berechnet wird, die wiederum auf 
einen Tabelleneintrag zeigt. 


Programm 4: 


ähnlich wie Programm 3 nur ohne Listenverarbeitung. Im Akku steht 
lediglich eine Nummer eines bestimmten auszuführenden Jumps. 


a 2 2 2 2 2 220 


Alle vier Programme dienen nur zur Anregung, wie man auf ein 
Programmierproblem mit einer Maschinen-Code-Routine antworten kann. 


a2 2 2 2 2 2 2 23 


Anschließend die vier Teillösungen:! 


Pass 1 errors: 98 


7538 18 org J2999 
2914 29 laenge: equ 29 

39; 

48 ji Programm 1 

38: 3=7--- 23-7. > 
7539 911490 69 1d bc, laenge 
7533 219975 78 id hl,liste 
7536 EDBI 89 cepir 
7538 C9 98 ret 

1289 3 
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7539 
753C 
753F 
7542 
7544 
7546 
7547 
754A 


754B 
754D 
7558 
7551 
7553 
7554 
7556 


7557 
7558 
7559 
755B 
755C 
755F 
7568 
7561 
7562 
7563 
7564 
7565 
7569 


756D 
756E 
756F 
7578 
7571 
7573 
7576 
7577 
7578 
757B 
757E 
7581 


7584 
7586 
7587 
7589 
758A 
758C 


119999 
211498 
219975 
EDA1 
z2@1 
13 
EA4275 
c9 


2684 
219975 
BE 
2894 
23 
19FA 
c9 


85 

68 

2698 

29 
116575 
19 

SE 

23 

56 

EB 

EI 
8D758A75 
87758475 


57 

87 

82 

sr 
1629 
217875 
19 

EI 
c38475 
c38775 
c38A?5 
c38D75 


3E41 
c7 
3E42 
c7 
3E43 
c9 


118 
128 


; Programm 2 
EN RE RORR SENDER 
ld de,® 
ld bc, laenge 
ld hl,liste 
pruef: cpi 
jr nz,nofoun 
inc de 
nofoun: jp pe,pruef 
ret 
; 
; Programm 3 
fassen 
ld b,4 
ld hl,liste 
weiter: cp (hl) 
jr z, found 
ine hl 
dinz weiter 
ret 
; 
tound: dec b 
ld 1,b 
1d h,2 
add hl,hl 
ld de,tabell 
add hi,de 
1d e,ihl) 
ine hl 
1d d,thl) 
ex de,hl 
jp {hl) 
tabell: defw num4,numS 
defw num2,numi 


jumps: 


ld d,a 
add a,a 
add a,d 
1d e,a 
ld 4,2 
ld hl,jumps 
add hl,de 
ip (hl) 
jp numi 
jp num2 
jp num3 
jp num4 


ld a,"A" 
ret 
ld a,"B" 
ret 
1d a,"c" 
ret 


u 


758D SE44 698 num4: ld a,"D" 


758F C9 799 ret 

719 5 
7598 7289 liste: defs laenge 
75A4 739 end 


Pass 2 errors: 99 


Deutscher Zeichensatz 


Selbstverständlich kann man beim Schneider ohne besondere Umschweite 
den Zeichensatz per Basic mit SYMBOL AFTER... ändern. Aber dann ist es 
auch manchmal nötig, einen nicht unerheblichen Teil des Zeichensatzes 
ins RAM zu kopieren, das frißt aber erstens sehr viele Bytes und 
zweitens ist es nicht immer möglich. 

Einen anderen Lösungsweg möchte ich hier aufzeigen. Es wird durch ein 
Programm geprüft, ob ein bestimmtes zum Ausdruck kommendes Zeichen in 
einer Austauschliste vorhanden ist, trifft dies zu dann wird dem Akku 
statt des Originalzeichens der ASCII-Code eines neuen Charakters 
übergeben. Da Zeichen über 249 automatisch im RAM stehen, können diese 
Zeichen sehr praktisch als Austauschcharaktere dienen. 


Das Programm nützt wieder eine Eigenschaft des Schneiders, der bei 
manchen Routinen zuerst in der Tabelle der indirekten Sprünge nach- 
sieht ob der Anwender nicht vielleicht etwas anderes von ihm erwartet 
als das Betriebssystem vorsieht. So wird der indirekte Sprung auf eine 
eigene Routine "verbogen"”, die das Auswechseln der Zeichen vornimmt. 


Pass 1 errors: 99 
19 jDeutschen Zeichensatz 


28 jueber indirekten Sprung 
39 jeinpatchen. 


49 5 
AQ28 sg org 41998 
A@28 ZADABD 69 1d hl, (#bdd9+1) 
ABZB 2295AB 79 id (raus#1),hl 
ABZE 2Z135AB 89 1d hl,routin 
A231 22DABD 99 1d (#bdd9+1),hl 
A234 CP 198 ret 
119 3 
ill 5 Ab jetzt laufen alle 
11235 Zeichenausgaben 
113 5} ueber diese Routine. 
115 5 
AB35 26D8 129 routin: 1d b,ende-liste/2 
AB37? 2Z147AQ 139 1d hl,liste 
ABSA BE 148 loop: cp (hl) 
ABSB 23 159 inc hl 
ABSC 2805 169 jr z,tound 
ABSE 23 179 inc hl 
AQSF 19F9 1898 dinz loop 
ABal 1891 199 jr raus 
ABa3 7E 288 found: Id a,(hl) 
AB44 CI2C14 219 raus: jp #149c 
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A@47? ABF8SBF9 228 liste: detb "@",248,"[",249,"\",2524 


AB4D S5DFB7BFC 238 defb "1",251,"t",252,”"1",253 
A@S3 7DFEASFF 249 defb ")",254,"#", 255 
A2S? 258 ende: end 


Pass 2 errors: 98 


Das Basicprogramm setzt die deutschen Umlaute in den Symbolspeicher ab 
Charakter 248. 


19 'Umlaute in den letzten Benutzer-Zeichen 
28 SYMBOL 248,30,48,56,198,56,48,248,8 

30 SYMBOL 249,102,9,680,102,102,126,1802,® 

48 SYMBOL 259,198,9,124,198,198,198,56 

59 SYMBOL 251,192,9,192,192,102,1902,69,@ 

68 SYMBOL 252,198,9,129,12,124,294,118,0 

7@ SYMBOL 253, 1802,20,680,1902,1902,192,682,0 

8@ SYMBOL 254,9,102,9,102,192,192,62,8 

98 SYMBOL 255,128,198,198,252,198,198,248,192 
189 : 

118 KEY DEF 17,1,123,91:KEY DEF 19,1,125,93:KEY DEF 24,1,94,126 


Drucker-Protokoll 


Mit diesem Programm wird das, unter CP/M, sehr praktische Kommando 
"Control-P" auch unter Basic verfügbar. Dieser Befehl schaltet ja 
bekanntlich den Drucker parallel zur Bildschirmausgabe. 

Mit CALL 41298 wird -wie üblich- eine zusätzliche Routine, mit Hilfe 
der indirekten Sprungtabelle, eingeschleift. Ein CALL &BBSi stellt 
wieder normale Verhältnisse her. 


Folgendes ist bei dieser Routine zu beachten: 

Die Basic-Variable "WIDTH", sie bestimmt die Zeilenlänge eines 
Ausdrucks, wird nur unter Basic richtig verwaltet, 

Da wir hier aber nicht auf dem üblichen Wege ein Zeichen an den 
Drucker übermitteln, muß "WIDTH" extra berücksichtigt werden. Weshalb 
in diesem Programm auch ein eigener Zeichenzähler eingebaut wurde. 

Mit dem Kommando WIDTH 29,48 oder 889 können sie nun sogar die 
Zeilenbreite, am Ausdruck, dem Bildschirmmodus angleichen. 


Bei den CPC’s 664 und 6128 wird die Variable "WIDTH" an der Speicher- 
zelle &AC®9 abgelegt !! 


Pass 1 errors: 98 


19 ;Zusaetzliche Druckerausgabe 
28 jueber indirekten Sprung 
39 jeinpatchen. 


498 3 
Aac24 45 width: equ #ac24 
A228 59 org 41098 
A®28 ZADABD 68 1d hl, (#bdd9+1) 
ABZB 223DA@ 78 id (screenti),hl 
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ABZE Z1SBAB 89 ld hl,routin 


Ag31 22DABD 99 1d (#bdd9+1),hl 
A834 3SEFF 198 restor: 1d a,255 
AB36 323AAB 119 1d (zaehl),a 
AB3F7 CP 128 ret 
ABSA 98 139 zaehl: defb 8 

149 

159 Ab jetzt laufen alle 


168 Zeichenausgaben 
178 ueber diese Routine. 
189 
ABSB FS 199 routin: push af 
ABSC CDaC14 228 screen: call #140c 
ABSF Fi 219 pop at 
AB4B8 FEBD 229 cp nd 
ABa2 AF 238 id c,a 
AB43 CCI4AB 249 call z,restor 
AB46 79 259 ld a,c 
Aga? FEI4 255 cp 29 
ABA9 3818 269 jr c,print 
265 $ 
ABB F5S 278 push af 
ABaAC ZISAAB 289 1d hl,zaehl 
AgaF 39 298 inc (hl) 
ABS5®B SAZ4AC 399 1d a, (width) 
A2BS3 BE 319 ep {hl) 
ABS54  229C 329 jr nz,inline 
ABS6 3691 338 ld ({hı),i1 
ASS SEBD 349 1d a,*9dd 
AQSA CDESAD 359 call print 
ABSD 3EBA 368 1d a,#da 
AQSF CD6SAB 372 call print 
AB&2 Fi 389 inline: pop af 
385 3 
AB63 CD2ZBBD 398 print: call #bd2b 
AB66 DE 492 ret c 
A867 18FA 419 jr print 
41535 
468 ;Reset Ind.Jump 
A869 CDS1BB 479 call #bbSi1 
AB6C C9 489 ret 


Pass 2 errors: 9® 


Text suchen 


Folgendes Programm simuliert, unter Maschinen-Sprache, den Basic- 
Befehl "INSTR". Es sucht in einem max.64 kByte langen Text, nach einer 
max. 255 Byte langen Zeichenkette. 

Das HL-Register dient in diesem Programm als Zeiger auf den Anfang, 
des zu untersuchenden Textes und BC enthält die Länge des Textfeldes. 
DE und B (nach PUSH) zeigen etwas später auf den Anfang des Suchtextes 
und dessen Länge. 

Wenn die Zeichenkette im Text enthalten war, erfolgt der Aussprung mit 
gesetztem Carry und das HL-Register zeigt auf den Anfang des gesuchten 
Textteiles (in diesem Beispiel auf &4ES2), sonst ist Carry=ß. 
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Pass 1 errors: 28 
19 3Suchen einer Bytefolge 
28 5im Speicher. 
323 
4E29 48 org 22990 
4E29 21454E sg 1d hl,text 
4E23 ED4BB824E 69 1d bc, (texien) 
79 3 
4E27 C5 89 weiter: push bc 
4E28 ES 98 push hl 
4E29 11844E 199 id de,sutext 
4E2C JAB84E 112 1d a,(txtlen) 
4E2F 47 129 1d b,a 
4E3®@ 1A 139 search: 1d a,(de) 
4E31 BE 148 cp (hl) 
4E32 2298 159 jr nz,unglch 
4E34 23 169 inc hl 
4E35 13 179 inc de 
4E36 19F8 189 djnz search 
198 jKommt hier nur an, wenn 
298 alle n-Zeichen gleich waren. 
218 ıDann Carry=1 und HL zeigt auf Text. 
4E38 EI 228 pop hl 
4E39 Ci 239 pop be 
4E3A 37 248 sct 
4E3B CP 259 ret 
269 3 
278 ıEin Zeichen war ungleich Suchtext. 
4ESC Ei 288 unglch: pop hl 
4E3D 23 299 inc hl 
4ESE Ci 3208 pop be 
318 iIPruefe ob Ende des Textes erreicht, 
329 sdann zurueck mit Carry=8. 
4ESF ®B 325 dec be 
4E49 78 339 1d a,b 
4E41 Bi 349 or c 
4E42 C8 358 ret z 
4E43 18E2 362 jr weiter 
379 3 
4E45 446965753 389 text: defm "Dies ist ein Test,um eine Zeichen" 
4E66 666F6C57 398 defm "folge im Speicher zu suchen.” 
4E82 3D22 428 texlen: defw S-text 
4E84 354657374 418 sutext: defm "Test” 
4E88 94 428 txtlen: defb $-sutext&htt 
Pass 2 errors: 99 
Relocater 


Viele in diesem Buch enthaltenen Maschinenprogramme sind sicher in ei- 
nem Speicherbereich abgelegt, in dem Sie sie nicht gebrauchen können. 


d.h 
etwas 


Da hilft der Relocater. Er re-lokalisiert den Code, 
einen neuen Aufenthaltsort im Speicher. Diese 


er gibt ihm 
zeitraubende 
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Vorgehensweise ist nur bei Programmen nötig, die direkte Adressen 
verwenden, dies trifft aber ohnehin in den meisten Fällen zu. 


Sie haben z.B. ein Programm, das ab #8099 abgelegt ist, und Sie wollen 
es lauffähig zur Adresse #79C489 bringen. Dazu müssen Sie nun alle 
direkten Sprungadressen und Speicherzeiger auf die entsprechenden 
Stellen im neuen Bereich zeigen lassen. 


Wie gehen Sie nun vor ? 


Sie suchen nun die Adressen aller Maschinencodes, in denen solche 
Zugriffe auftauchen und legen sie in der DATA-Zeile ab. Aber Vorsicht, 
nicht die Adresse des Operationscodes selbst, sondern erst die seiner 
Daten. Also wenn z.B. bei Adresse #9D82 der Code "CD 929 82" steht, 
dann geben Sie die Adresse #9D23 an, ab der in diesem Fall die 
Sprungadresse steht. 


Anschließend geben Sie noch die Menge der Daten in Zeile 35 an. 
Schließlich geben Sie nun die jetzige Adresse in der Variablen 
"origadr" an und Ihren gewünschten Bereich in der Variablen "useradr", 
das Umrechnen aller Adressen geschieht jetzt automatisch nach Start 
des Hilfs-Programmes. 


Nach dieser Prozedur steht das Programm zwar noch immer an der gleiche 
Stelle, ist aber jetzt nur in dem neuen Speicherbereich lauffähig. Sie 
müssen nun nur ‚noch in diesen neuen Bereich praktizieren. Was am 
einfachsten über Abspeichern auf Datenträger und anschließendes Laden 
in den neuen Speicherbereich geschieht. 


19 ’ Relocater 

ig. r Sesmsasse 

29 origadr=&8909:useradr=&9C49:' zum Beispiel 

25 offset=origadr-useradr 

38 DATA &9d99,&9493:’...... Ihre Adressen! 

35 anzdat=2: entsprechend DATA-Anzahl 

48 FOR n=1 TO anzdat:READ adr 

45 wert=PEEK (adr) +256%PEEK (adr+1) :wert=wert-offset 
59 hbyte=INT(wert/256):1byte=wert-256*hbyte 

s5 POKE adr, Ibyte:POKE adr+i,hbyte:NEXT 


Integer Buhhle-Sort 


Das erste Sortierprogramm ist #für Ein-Byte-Werte gedacht, die im 
Speicher ab Label "Liste" abgelegt sind. 

Zum besseren Verständnis und zur Erinnerung der Vorgang bei 
Bubble-Sort: 

Die Sortierung erledigen zwei ineinander verschachtelte Schleifen, 
dabei wird die äußere der beiden solange durchlaufen, bis in der 
inneren Schleife kein Tausch zweier benachbarter Zellen mehr nötig 
war. 


Die innere Schleife prüft bei jedem Durchlauf die ganze Liste. Dabei 
werden zwei benachbarte Zellen verglichen und wenn nötig (erster- > 
zweiter Eintrag) gegeneinander getauscht. Wenn während des Durchlaufes 
auch nur ein Eintrag getauscht wurde, wird ein Tauschflag gesetzt. 
Dieses Tausch#flag "sagt" dann der äußeren Schleife, daß die Liste noch 
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nicht ganz sortiert war, und es erfolgt ein erneuter Durchlauf. Das 
also in groben Zügen zum Sortiervorgang und nun zum Programm. 


Das BC-Register enthält die Länge der Liste - 1, DE- und HL- Register 
bilden die Zeiger auf die beiden benachbarten Zellen und werden 
laufend incrementiert. Der Akku dient vorrübergehend als Tauschflag, 
dieses Flag wird aber sofort wieder auf dem Stack abgelegt, um es 
nicht zu zerstören. Der Wert #FF als Flag wird als "Tausch-erfolgt" 
interpretiert. 


Im Programm ist die Länge der Liste mit 1928 dez. angegeben, sie kann 
jedoch auch andere Längen annehmen. 


Pass 1 errors: 29 


19 1Bubble-Sort einer 
289 ITabelle mit ein-Byte 
38 JEintraegen. 


23 
BD3E8 59 laenge: equ 19929 
4E28 69 org 29020 

72 3 
4E28 BI1E?7@3 82 weiter: Id bc, laenge-1i 
4E23 11494E 978 ld de,liste 
4E26 ZI4A4E 199 1d hl,liste#+i 
4E29 AF 118 xor a 
4EZ2A F5 128 push af 

139 3 


149 jvergleiche zwei Zellen 
159 job Tausch noetig. 


4EZB 1A 168 loop: 1d a,tde) 

4E2C BE 179 cp (hl) 

4E2D 389E 189 jr c,notau 

4EZF 289C 185 jr z,notau 
199 3 


299 jes wird getauscht 
218 j(hl) <> (de) 


4E3i Fi 229 pop af 
4E32 SEFF 239 id a,255 
4E34 FS 249 push af 
4E35 CS 259 push bc 
4E36 46 269 1d b,(n)) 
4E37 1A 278 1d a, (de) 
4E38 77 289 1d (h)),a 
4E39 EB 298 ex de,hl 
4E3A 78 328 ld (hl),b 
4ESB EB 319 ex de,hl 
4E3SC ci 329 pop bc 

332 3 
4ESD 23 349 notau: inc hl 
4ESE 13 359 inc de 
4ESF ®B 369 dec bc 
4E49 78 379 1d a,b 
4E41 Bi 389 or [4 
4E42 2BE? 398 jr nz, loop 


499 jarbeite die Liste 
418 jeinmal ganz durch. 
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438 jmach solange weiter 
449 jbis Tauschflag nicht 
4589 jmehr gesetzt war. 


gaEsa4 Fi 468 pop at 

4E45 B? 478 or a 

4E46 29D8 488 jr nz,weiter 
4E48 C9 498 ret 

4E49 599 liste: defs 1290 

5231 519 end 


Pass 2 errors: 28 


Fließkomnazahlen sortieren 


Das folgende Programm ist nicht mehr auf Integerzahlen beschränkt und 
kann direkt auf ein von Basic mittels DIM-Anweisung angelegtes Array 
zugreifen ! 

Um gleich Ihre Neugier zu stillen, das Maschinen-Programm braucht für 
die Sortierung von 199 Fließkommazahlen nur knapp 3 Sekunden. 


Es arbeitet vom Prinzip her genau wie das vorige Programm. Deshalb 
möchte ich auch nur drei Eigenheiten des Programms besprechen. 


Erstens, da ein Basic-Array sehr wohl im RAM-Adress-Bereich bis 16k 
aufgebaut sein kann -also unter einem ROM- und wir eine 
Fließkomma-Vergleichsroutine im eben diesem ROM aufrufen, müssen wir 
zuerst die beiden zu untersuchenden Variablen in einen Bereich 
schaufeln, auf den auch das ROM zugreifen kann. Denn wenn das ROM 
aktiviert ist, blendet es das darunterliegende RAM aus und kann so 
nicht mehr auf das Array zugreifen. Natürlich müssen wir die Variablen 
später wieder zurückbringen, aber nur wenn sie ausgetauscht wurden. 


Zweitens wird -um den Stack zu schonen- das Tauschflag im 
Interupt-Register abgelegt ! Das geht bei den Schneider- Computern, 
weil sie alle im Interruptmodus 1 arbeiten und so dieses Register 
nicht verwenden. Der Anwender bekommt also ein Prozessorregister 
geschenkt. 


Drittens wird der eigentliche Tauschvorgang nun elegant mit dem IY- 
Register plus einem Offset erledigt, da wir es ja jetzt mit einem 
5-Byte-Eintrag zu tun haben. 


Der Einbau und Aufruf des Programmes von Basic aus: 


z.B. DIM a(199) 
CALL 39990,@a(9),198 


Der erste Parameter zeigt mit dem Variablenpointer auf den ersten 
Eintrag des Arrays, der zweite gibt die Länge des Arrays an. Da das 
Programm ja sowieso die Listenlänge abzüglich 1 braucht, muß also 
nicht als Länge der Wert 191 angegeben werden, welcher ja die 
tatsächliche Länge des Arrays wäre. 
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Pass 


7539 
BD6A 


7538 
7532 
7533 
7536 
7539 
753C 


753F 
7549 
7541 
7542 


7544 
7595 


7546 
7547 
754A 
754D 


754F 
7552 
7553 
7558 
755A 


755C 
755E 
7568 
7564 
7566 
7569 
756C 
756F 
7572 
7574 


7576 
7577 
7578 
757B 
757E 


7588 


i1 errors: 


FEB2 
ce 
DD4EB® 
DD46981 
DD5E22 
DDS683 


cs 
DS 
AF 
ED47 


[e-} 
DS 


EB 
119475 
DIDADS 
EDB® 


119475 
219975 
CDsABD 
3892 
1824 


SEFF 
ED47 
FD219475 
2695 
FD7ESB 
FD4ERBS 
FD?7198 
FD?77895 
FD23 
19Fg 


Di 

DS 
219475 
D12ABO 
EDBS 


Di 


19 
28 
38 
49 
sg 
68 
78 


89 
99 
198 
118 
129 
138 
148 
158 
168 
178 
189 
198 
228 
219 
229 
239 
249 
245 
258 
269 
278 
288 
298 
399 
318 
329 
338 
349 
359 
368 
379 
389 
398 
499 
418 
428 
438 
448 
459 
468 
478 
488 
499 
528 
519 
528 
538 
549 
552g 


iFliesskommazahlen sortieren 
jmuessen in einer Reihe stehen, 
iso wie es bei einer Basic-DIM- 
jAnweisung der Fall ist. 

’ 


org 39920 
verglh: equ #bdsda 
’ 

ep 2 

ret nz 


1d c,tix+9) 

id b,tix+1) 

1d e,tixt+2) 

1d d,tix+3) 
’ 
stfuer Neudurchlauf retten 
weiter: push bc 

push de 

xor & 

1d i,a 
Izum Zaehlen auf Stack 
loop: push bc 

push de 
ijkopiere 2 F-Zahlen nach buffer 


ex 
1d 
1d 


de,hl 
de,buffer 
bc,18 


idir 
svergleiche die F-Zahlen im 
iBuffer miteinander. 


id de,buffer 
1d hl,buffer+3 
call verglh 
jr c,tau 
jr notau 
1 ---- 1. - 
tau: id a,255 
1d i,a 
1d iy,buffer 
1d b,5 
tausch: 1d a,(tiy+®) 


ld c,tiy+5) 
1d tiy+@),c 
1d tiy+5),a 
inc iy 
djnz tausch 
s 
skopiere die vertauschten 
ıZahlen wieder in Basic-Array. 
pop de 
push de 
1d hl,buffer 
id bc,19 


notau: pop de 
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7581 ci 568 pop be 


7582 13 579 inc de 

7583 13 588 inc de 
7584 13 598 inc de 

7585 13 699 inc de 

7586 153 619 inc de 
7587 ®B 628 dec be 

7588 78 638 id a,b 
7589 Bi 648 or c 

7358A 22B8 459 jr nz, loop 


668 jsooft mal wiederholen 
678 ibis kein Tausch mehr 
688 Inoetig wurde. 


758C Di 698 pop de 

758D ci 798 pop bc 

758E EDS? 7198 1d a,i 

75909 B7 728 or a 

7391  2BAC 738 jr nz,weiter 
7593 cC9 748 ret 

7594 759 buffer: defs 19 


Pass 2 errors: 988 


ZEIT A ME TEE en En ET 
EA EEE BEE AH DEE GER EEE VEREEER VEEEEER VEERNEERNGEERN 


EEE BETEN 


Neue 
Basic-Befehle 


Ihr Computer hat die sehr schöne Eigenschaft, neue Befehle ganz leicht 
ins bestehende BASIC einbauen zu können, von dieser Möglichkeit machen 
wir nun Gebrauch. Die Namen der neuen Befehle: 


CIRCLE : Zieht einen Kreis mit verschiedener X-, Y-Ausdehnung, 
oder auch nur ein Segment davon. 

copY : Eine Hardcopy mit max. drei Graustufen zuzüglich weiß und 
schwarz ! 

TEXT : Buchstaben und Sonderzeichen so groß wie Sie wollen. 

TAUSCH : Austausch zweier Variablen ohne Garbage- Collektion ! 

PAUSE : Ein Computer braucht auch mal eine Pause. Erspart eine 


leere FOR-NEXT-Schleife. 

Ein 16-Bit-Wort wird in Zilog-Schreibweise abgelegt. 

Das Gegenstück,ein 16-Bit-Wort wird in eine BASIC- 
Variable geholt. 

RESTORE: Ein Restore mit berechneter Zeilennummer. 


DPOKE 
DPEEK 


TAST ! Wartet ganz einfach auf Tastendruck 
INVERSE: Vertauscht Vorder-und Hintergrundfarbe bis zum erneuten 
Aufruf. 


OVER1/@: Macht den Hintergrund durchscheinend oder nicht. 


Soviel nur um Sie neugierig zu machen. Anschließend wird die ganze 
Prozedur des Einbindens- und der Aufbau der Befehle sowie deren Syntax 
erklärt. Fröhliches Abtippen ! 

Am Antang die Symboltabelle aller verwendeten ROM-Routinen. 


Pass 1 errors: 998 


2981 18 wahr: equ i ’ ACHTUNG ** 
2208 28 falsch: equ 8 1) 
22993 39 sys464: equ falsch $ Diese Maschinen - Pro- 
BCDi #8 rsxin: equ #bcedi ; gramme sind für den CPC 
B9993 59 basrom: equ #b998 i 6128 assembliert. 
E8SC 69 suchzl: equ He8S5c ;! Also alle mit ! gekenn- 
AE1? 79 datazg: equ H#Hael? 5! zeichneten Adressen b. 
BD64 89 intflo: equ #bds4 ;! 464 u. 664 entsprechend 
BDAF 98 cos: equ #bdaf 7! ändern. (Siehe Werkzeug- 
BDAC 1989 sin: equ #bdac ;! kiste.) 
BD?C 119 plus: equ #bd7c 5 

120 I---- nun 5 
BD82 1589 minus: equ #bd82 [Bi 
2900 149 it sys464 
53A3 159 neunbyt: equ #37 
53A3 169 oldbyt: equ #3b 
S3AS 178 else 
BDOFA 188 newbyt: equ H9a 
BO9IE 198 oldbyt: equ H#9e 
S3AS 228 end 

210 ara 


si 


BD94 229 signum: equ #bd94 


’' 
BD97? 239 raddeg: equ #bd97 I 
BD&1 248 copflo: equ #bd6i 5 
BD85 259 mult: equ #bd85 s' 
BD&A 268 #loint: equ #bd6sa 3. 
BD2E 279 busy: equ #bd2e 
BD2B 2898 print: equ #bd2b 
BBF& 298 draw: equ #bbf& 
BBC® 329 move: equ #bbc 
BBDE 318 setpen: equ #bbde 
Bci1 328 getmod: equ #bcil 
BBF® 338 tstpkt: equ #bbf8 
BBE? 349 getpap: equ #bbe? 
BBC&ö 359 askcur: equ #bbcö 
BBAS 369 getmat: equ #bba5 
BBEA 378 plot: equ #bbea 
BBDE 389 graset: equ #bbde 
BBO9F 398 readch: equ #bb29 


BB26& 4229 waitta: equ Hbb96 
BBFC 418 invers: equ #bb9c 
BBPF 428 setgnd: equ #bb9+ 


Die Erweiterung ist ab Adresse 41388 abgelegt,HIMEM also vor dem Laden 
auf maximal 41299 setzen. 


Zu Beginn (Zeile 4889-599) sehen Sie den Teil, der die neuen 
Basic-Befehle mittels einer ROM-Routine ins System einbindet. Dann 
folgen die Sprünge zu den Maschinensprache-Teilen mit den BASIC- 
Namen, das letzte Zeichen eines jeden Namens ist mit #89 oder- 
verknüpft, und zuletzt ein 4-Byte Speicherbereich für die interne 
Verwaltung, so wie es der Rechner fordert. 


439 *E 
A154 448 org 41398 

459 3 

469 }Befehle in Basic einbinden. 

478 
A154 @15DAI 438 1d be,jump 
A1S7 ZICAAL 498 1d hl,memory 
A1SA CIDIBC >28 jp rsxin 

s18 ı 
A1SD 83Al 529 jump: detw namen 
AISF CICBAL 539 jp circle 
Al62 C33I7AS3 549 jp copy 
A165 C3I64A4 559 j3p text 
A168 CISSBAS 568 ip tausch 
Al&B CIPAAS 578 ip pause 
AIGE CIB4AS 589 ip dpoke 
A171 CSBBAS 599 jp dpeek 
A174 C3SDSAS 62B jp restor 
A177 CI@6BB 619 j3p waitta 
A17A C39CBB 629 jp invers 
A17D CISE9IAS 638 ip over® 
A188 CSEDAS 648 ip overi 
A183 43495243 658 namen: defm "CIRCL” 
A188 C5 668 detb "E"’8#89 
A189 434F5@ 678 defm "COP" 
ASC DPY 688 detb "Y"S489 
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A18SD 544558 698 defm "TEX” 


A19@ Da 798 detfb "T"8#89 
A191 54415553 718 defm "TAUSC" 
A196 C8 729 detb "H"8#8@ 
A197 58415553 738 defm "PAUS" 
A19B C5 749 detb "E"5#89 
AL9C 445M4F4AB 758 defm "DPOK” 
AlAB CS 768 detb "E"86#89 
AlAL 44504545 779 defm "DPEE* 
A1AS CB 788 detb "K"8480 
AlAd& 52455354 798 defm "RESTOR" 
AlIAC CS 890 detb "E"8#89 
AIAD 54415354 819 defm "TAST” 
AlBl C5 829 detb "E"8#89 
A1B2Z 494E5645 838 defm "INVERS" 
ABS C5 849 detb "E"8#82 
A1ABF 4F364552 859 defm "OVER" 
AIBD BP 869 defb "Q"8482 
AIBE 4F564552 878 defm "OVER" 
Alc2 Bi 889 detb "1"5#89 
AICIS 92 898 defb 8 

Aıca 9229 memory: detfs 4 


Befehl CIRCLE 


ICIRCLE, (Vonwinkel,Biswinkel},X-Mitte,Y-Mitte,X-Radius, 
Y-Radius,Farbe 


Zum Beispiel: 
ICIRCLE, 99, 270,299, 289,159,159,1 


Dieser Befehl zeichnet ein Kreissegment von Winkelgrad 98-278. Der 
Mittelpunkt ist dabei in %- und Y-Richtung gleich auch die beiden 
Radien. Das Segment hat dabei die Farbe I. Wenn die Angabe Von- und 
Biswinkel weggelassen wird, wird ein Vollkreis gezeichnet. 


Das Programm: 


Wenn die Anzahl der Argumente <>)? oder <)5 ist, erfolgt sofort ein 
Rücksprung nach Basic. Die Parameter werden in die entsprechenden 
Speicherzellen abgelegt, evtl. erst nach einer Integer zu Fließ- 
kommawandlung. 

Die Routine kommt in der Hauptschleife ohne die langsamen tri- 
gonometrischen Funktionen aus. Am Besten kann man die Arbeitsweise des 
Programms mit dem folgenden Basic-Algorithmus erklären. 


118 ’Vorgabe der Werte 
128 xrad%=15Q0:yrad%=159 
139 vonw%=0:bisw%=369 
149 xmit%=309: ymit%=299 
159 tarbe%=1 

169 ’ 

178 ’Kursor auf Beginn 
188 DEG:konst=PI/189 

198 x=C0S(vonw%) :y=SIN(vonw%) 
298 GOSUB 34@:MOVE xx,yYy 
219 
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af 

1, t(ix+2) 
h, (ix+3) 
de,yrad 
int#flo 
1, tix+4) 
h, tix+5) 
de,xrad 
intflo 


1, tix+6) 
h, (ix+7) 
tymit),hi 
1, (ix+8) 
h, tix+9) 
(xmit),hi 


a, (ix+9) 
setpen 
a,255 
raddeg 
af 

5 
z,defit 


7 

nz 

1, t(ix+19) 
h,tix+11) 
e,(ix+12) 
d, (ix+13) 
hil,de 

de 

h 

1 

a,l 
(steps),a 
hi 


229 ’Hauptschleife 
238 FOR n%=1 TO (bisw%-vonw%) /2 
249 GOSUB 32@:GOSUB 339:G0OSUB 349 
258 DRAW xx,yy,farbe% 
268 GOSUB 33@:G0SUB 329:G0OSUB 349 
278 DRAW xx,yy,farbe% 
289 NEXT 
299 END 
399 ’ 
3189 ’Unterprogramme 
3289 x=x-y%*konst:RETURN 
339 y=y+x%konst:RETURN 
349 xxeuxmit%txtxrad% 
359 yy-ymit%t+ykyrad% 
368 RETURN 
919 *E 
928 ıBefehl CIRCLE 
939 3 
Aic8 F5S 948 circle: push 
AIC9 DD6EBZ2 959 1d 
AICC DD6AB3 968 1d 
AICF 11F9AZ 979 1d 
A1D2 CD64BD 989 call 
ADS DD6EBA 999 id 
A1ADS DD6695 1999 ld 
ADB 11F4A2 1919 1d 
AIDE CD64BD 1929 call 
19398 3 
AIE1 DDEEDS 1949 1d 
AIE4 DDE65B7 1959 1d 
AIE7 2219A3 1969 1d 
ALIEA DDSEBE 1979 1d 
AIED DD6689 1989 Id 
AIF@B 22BEA3 1999 1d 
1129 3 
AIFS DD7EBS 1119 1d 
AIF6& CDDEBB 1128 call 
AIF9 SEFF 1139 1d 
AIFB CD9P7BD 1149 call 
AIFE Fi 1159 pop 
AIFF FEBS 11692 cp 
A221 281D 1179 jr 
1189 3 
A223 FEB? 1199 cp 
A225 C® 1299 ret 
A226& DD6EBA 1219 1d 
A299 DD662B 1229 1d 
A28C DDSE@C 1239 1d 
AZ2SF DDS62D 1249 1d 
A212 EDS2 1259 sbc 
A214 DS 1268 push 
A215 CBiC 1279 rr 
A217 CBID 1289 rr 
A219 7D 1299 1d 
AZIA 3228DA3 1329 id 
A2ıD Ei 1319 pop 
AZIE 1898 1322 jr 
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beginn 


}Anzahl der Argumente 
(Akku) retten. 


}x-rad,y-rad holen und n. 
;Fließkomma wandeln und 
jablegen. 


5y- und x- Mitte ablegen 


}Zeichenfarbe setzen. 


;DEG einschalten ! 


iWenn nur 5 Argumente dann 
ıVollkreis. 


iKein Vollkreis ab.? Argu. 
}sonst Return. 


Iihl= biswinkel 


ide= vonwinkel 
s5hl= hl-de entspr.Segment- 
igröße. de-Reg aufheben. 


ihl=hl/2-hl k. max 188 dz. 
isein,desh.reicht A z. 
sübernahme. In steps abl. 
jehem. de-Rg nach hl holen 
sund zur Hauptschleife. 


A228 3SEB4 1339 detflt: Id a@,188 $Defaultwerte für Vollkr.: 


A222 328DA3 1348 1d (steps),a ;jKreis hat 189 Schritte u. 
A225 219908 1359 ld h1,8 ;beginnt bei @ Grad. 

1369 } 
A228 ES 13789 beginn: push hl 5hl retten. 
A229 2183BD 1388 ld hl,minus+1 ;2te Minusrout.Sprungtab. 
A22C 369A 1399 ld  thl),newbyt jeinbauen. (hl)=(hl)-(de). 
A2ZE Ei 1498 pop hl 5hl wieder zurück. 

1419 3 
A22F 11FEA2 1429 ld de,rechrg ;Inh.hl-Reg(i=Vonwinkel) a. 
A232 CD64BD 1439 call intflo ;Flozahl in (rechreg) abl. 
A235 EB 1448 ex de,hl trechreg nach de bringen. 
A234 2Z193A3 1459 id hl,xreg } (rechreg) nach xreg kop. 
A239 ES 1468 push hl Adresse v. xreg aufheben. 
A23A CD61BD 1479 call copflo ;Flozahl vonwinkel auch n. 
A23D Z1@8A3 1488 1d hl,yreg ityreg) kopieren. 
A248 CD61BD 1499 call copflo 
A243 CDACBD 1599 call sin 3Sinus und Cosinus für 
A246 EI 1519 pop hl }Anfangspunkt berechnen, 
A247 CDAFBD 15228 call cos sin Grafikkoordinaten um- 
A24A CDPAA2 1538 call koord jrechnen und Grafikkursor. 
AZ24D CDCOBB 1549 call move ssetzen. 

1559 35 
A258 SABDAS 1568 1d a, (steps) 
A253 47 1579 1d b,a }b= Zähler 
A254 F3 1588 di 
A255 C5 1599 loop: push bc ;Interrupt ausschalten. 
A254 CD?78A2 1688 call xwert 3-- HAUPTSCHLEIFE -- 
A259 CD89A2 1619 call ywert 
A2SC CD9FAA2 1628 call koord 
A2SF CDF6BB 1639 call draw 
A262 CD8FA2 1649 call ywert iWeg.2-maligem Ziehen ein. 
A265 CD78A2 1659 call xwert jLinie i.einem Durchg.hat 
A248 CD9AA2 1668 call koord 3Vollkreis auch nur 
A26B CDF6BB 1678 call draw 189 Schritte statt 368 ! 
AZ&EE Ci 1689 pop be 
A26F 19E4 1698 dinz loop $sooft wie b-Reg angibt. 
A271 FB 1798 ei t Interrupt zulassen. 
A272 2183BD 1719 ld hl,minus#+1 ;0Original-Minusroutine 
A275 369E 1728 1d (hl),oldbyt jszurück. (hl)=(de)-(hl). 
A277 C9 1739 ret ;Nach Basic 

1749 3 
A278 CDDEA2 1759 xwert: call ycopy ;Fließkommaberechnung!: 
A27B 1112A3 1768 1d de,konst 
A27E CD8ESBD 1778 call mult 5jx=x-(y%Konstante) 
A281 EB 1789 ex de,hl 
A282 2193A3 1798 1d hl,xreg iKonstante = 9.5 
A285 CD82BD 1888 call minus 
A288 C9 18198 ret 

1828 3 
A289 CDD4A2 1839 ywert: call xcopy 5Fließkommaberechnung! 
AZSC A1112A3 1849 1d de,konst 
A28F CD8SBD 1859 call mult jy=y+t(x%Konstante) 
A292 EB 1868 ex de,hl 
A293 ZI@BAI 1879 id hl,yreg Konstante = 9.5 
A296 CD7CBD 1889 call plus 
A299 C9 1899 ret 

1999 3 
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AZIA 
A29D 
AZA® 
AZAS 
AZA& 
A2A? 
AZAA 
AZAB 
AZAD 
A2BS 
A2ZB4 
A2BS 


A2B& 
A2B? 
A2BC 
AZBF 
A2Cc2 
A2C3 
A2C& 
A2C? 
A2C? 
A2CC 
A2D® 
AZDI 
A2D2 
A2D3 
A2D4 
A2D? 
A2DA 
-A2DD 
AZDE 
AZEI 
AZE4 
AZE? 


AZES 
AZE? 
AZEA 
AZEB 
AZEC 
AZED 
AZEE 
AZEF 
AZFS 
AZFi 
AZFS 


A2ZF4 
AZF? 
AZFE 
A323 
ASBS 
A32D 
ASSE 
A319 
AS12 
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CDDEA2 
11F9A2 
CD85BD 
CD94BD 
FS 
CDsABD 
Fi 
3993 
CDE8SA2 
EDSB18A3 
19 

ES 


CDD4A2 
11F4A2 
CD85BD 
CD94BD 
F5 
CD&ABD 
Fi 
3993 
CDE8A2 
EDSBSEAS 
19 

EB 

Ei 

c9 
Z1FEA2 
1183A3 
CDös1BD 
c9 
Z1FEA2 
1198A3 
CD&1BD 
c, 


AF 
95 
6F 
9 
95 
BC 
67 
37 
c2 
FEB 
c7 


222202938 
2LLORLAD 
222929290 
DAAD 
229293298 
29 

2928 
2298 
1335FABE 


1919 
1929 
1939 
1949 
1959 
1968 
1979 
1989 
1999 
2929 
2919 
2929 
2938 
2949 
2959 
29698 
29798 
2088 
2278 
2129 
21198 
21298 
2139 
2148 
2159 
2168 
2178 
2188 
2199 
2299 
2219 
2229 
2239 
2248 
2259 
2268 
22798 
2288 
2299 
2399 
23198 
2329 
2339 
2349 
2359 
2369 
2379 
2389 
2399 
2498 
2418 
2429 
2438 
2449 
24598 
2468 
2479 


koord: 


nomin: 


nomini: 


xcopy: 


ycopy: 


chgsig:! 


; 

xrad: 
yrad: 
rechrg: 
xreg: 
yreg! 
steps: 
xmit: 
ymit: 
konst: 


call 
ld 
call 
call 
push 
call 
Pop 
ir 
call 
1d 
add 
push 


call 
ld 
call 
call 
push 
call 
pop 
jr 
call 
1d 
add 
ex 
pop 
ret 
1d 
1d 
call 
ret 
id 
1d 
call 
ret 


xor 
sub 
ld 
sbc 
sub 
cp 
1d 
sct 
ret 
cp 
ret 


defb 
defb 
defb 
detfb 
defb 
defb 
defb 
defb 
defb 


ycopy 
de,yrad 
mult 
signum 
af 
floint 
at 
nc,nomin 
chgsig 
de, (ymit) 
hıl,de 

hi 


xcopy 
de,xrad 
mult 
signum 
af 
floint 

af 
nc,nomini 
chgsig 
de, (xmit) 
hiı,de 
de,hl 

hl 


hl,rechrg 
de,xreg 
copflo 


hl,rechrg 
de,yreg 
copflo 


TT- 1-1. 


}Grafikkoordinaten vom 
jmomentanen Mittelp. aus 
iberechnen. 

}Nach Formel: 

jhl = ymitte + (yregiyrad) 
;In Klammer-Flozahl-sonst 
; Integerberechnung. 
}Vorzeichen berücksicht.! 
jevtl.Vorzeichen wechseln 


ihl ist nun y-wert 
diesen aufheben 


iwie vor,jedoch für xwert. 


;Nach Formel: 

ide = xmitte + (xregitxrad) 
}In Kiammer-Flozahl-sonst 
} Integerberechnung. 
iVorz.d.Flozahl bestimmen. 
su.evtl.Vorzeichen d.Int.- 
}jzahl wechseln. 
JRegisterinh. vertauschen 
5hl zurueck, de u. hl ent- 
shalten nun x- u. y-Koord. 


}Unterprogramm für Inhalt 
ijxreg nach Rechenregister 
ikopieren (sind 5 Bytes). 


jwie vor,jedoch für yreg. 


iWechsle Vorzeichen. 
$Unterprogramm a.ROM kop. 
;da bei <>464 im Basicrom. 


Befehl coPpPYv 


COPY 


Um eine Grauabstufung beim Ausdruck zu erreichen, muß tief in die 
Trickkiste gegriffen werden. 

Um einen eventuellen MißBverständnis vorzubeugen: Mit Grauton meine ich 
nicht die (unfreiwillige) Verwendung eines alten Farbbandes, sondern 
das Verhältnis der am Papier gesetzten Punkte zu den Leerstellen ! 


Aber nun wieder im Ernst ! 

Im MODE ® haben Sie fünf Graustufen (einschließlich schwarz und weiß), 
im MODE 1 immerhin noch vier und im MODE 2 nur noch weiß und schwarz, 
dafür aber die höchste Auflösung von allen. Das Programm stellt sich 
automatisch auf die entsprechenden Modi ein, indem es selbsttätig 
seine Programmierung ändert. 


Zum besseren Verständnis der Routine muß ich etwas über die Bild- 
schirmspeicheraufteilung in den verschiedenen Modi anmerken. 


Die horizontalen Koordinaten des Bildschirms sind immer in dem Bereich 
28-639, aber je nach dem verwendeten MODE ist die Anzahl der tat- 
sächlich darstellbaren Pixel verschieden und zwar 168 (Mode 2),329 
(Mode 1) und alle 648 im Made 2. 

Daraus ergibt sich, daß der einzelne Punkt oder Pixel im Mode 9 ganze 
vier horizontale Bildpunkte verbraucht ( 648 / 1588 ), im Mode 1 sind’s 
noch zwei und im Mode 2 endlich nur noch einer. 

Dieses Verhalten des Schneiders kann man sich auch beim Ausdruck 
zunutze machen, denn der Drucker kann ebenfalls vier nebeneinander 
liegende horizontale Punkte für einen ganzen Bildpunkt verwenden. Mit 
einem unterschiedlichen Setzen dieser einzelnen Punkte lassen sich 
theoretisch schon vier Graustufen darstellen. 

Das ist aber noch nicht alles, wie Sie sicher wissen, benützt der 
Bildschirm Ihres Computers in der vertikalen Richtung die Koordinaten 
29-399, hat aber in Wirklichkeit nur die Auflösung von 299 Pixel, also 
pro Pixel zwei Koordinatenpunkte. Und dies bleibt konstant in allen 
Modi ! 

Auch der Drucker steuert pro Pixel zwei vertikale Nadeln an, um die 
richtigen Seitenverhältnisse zu bewahren. Damit sind es also vier 
horizontale und zwei vertikale Druckernadeln pro Pixel im Bild- 
schirmmode ®. 

Eigentlich ließen sich damit 2%4, also 8 verschiedene Grau- 
schattierungen erreichen, aber wie gesagt nur theoretisch, denn die 
tatsächlich sichtbare ! Auflösung eines Matrix-Druckers ist wesentlich 
geringer, besonders in den dunkel-grauen Tönen. Wir begnügen uns mit 
+ünf Grautönen und liegen damit goldrichtig. 


Pixel/Zeichenplatz entsprechend Modus: 


IAHHHHARE IHHHHRARE IHHHAHHHHHHRHHHHHE 
HHRRRRHRE IHHHHHHRE JHHHHBHHEBHBBEHHGR 
RR IHHHHHHHE IHHHHHHHHBHHHHHHHE 
RHRHRHHE IHHHHRHRE SHHHHHHBHHBHREHHHOR 
RHRHAHR HHHHRIARRE HRHARIAHHIHHRHIEIIHER 
RR HHHHRHRE SHHHHEHHHBSHHHRHGE 
HHHHHRAHE HHHHHIARE SHHHHBHHHHHRHHHHER 
KREIIAHH  HHHHRIHIHE HHIHRIHHEIBISHBBRAHER 
-Mode 2- 
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Noch ein bildhafte Darstellung: Eu Pe 4 
nennen - DE BE =} 
Far» : — 
Drucker-"Pixel" im Mode 9: a ne er 
IE u nr In ee 5 Nr 
1111 IE" u Ir en = 
111ı entspricht Schwarz IE" u er In ee 1 
33° zn, u Ira 5 ER 
ne ; j IE an er nr 5 
a zn IE m u oe 5 MER 
ini IE zn, ur en ee 5 BER ie 
KEre a u 
2108 ’ M’Grau d E 
1908 
2010 ” H’Grau 
29328 
2008 . Weiss ( immer die Papertarbe ) 
xx <-- Diese vier Nadeln werden im Mode 1 verwendet. 
X 6 
x <-- Und nur diese beiden im Mode 2. 
x -- 


So,’ und nach soviel Theorie endlich das Programm: 
2488 *E 
2499 ;Betehl COPY 
2529 3 
BarFF 25189 schwrz: equ 255 
QBAE 2528 dgrau: equ %i2121118 }Druckermatrixen 
29A4 2532 mgrau: equ %12122108 sfür d.einzelnen 
2o82 2548 hgrau! equ %12202210 iGraustufen. 
2920 25529 weiss: equ 8 
2569 3 
A317 ABBBDAAS 2578 modis: defw 149,sprng® } Tab.+.Programm- 
A31B 13131313 2388 defb #13,#13,#13,#13 5 änderungen. 
A3SiF 94 2598 defb 4 Mode 8- Werte 
26928 3 
A329 4AQB1F1iA3S 26129 nxtmod: defw 32@,sprngi 
A324 131390099 26298 defb #13,#13,90,8 
A328 82 2638 defb 2 ;Mode 1-Werte 
2649 ji 
A329 800298A4 2658 detfw 648, sprng2 
A32D 13000090 2448 defb #13,909,9,8 
A331 91 2678 defb i ;Mode 2-Werte 
2689 3 
A332 99 2698 paper: defb 8 3Zwisch.speich.f.Paper. 
A333 2200090990 2798 drbyts: defb 9,9,9,8 su. 4 Druckerbytes. 
2719 5 
2728 jProgramm stellt sich selbst 
2738 jauf entsprechenden Modus ein ! 
A337 ED?351AS 2748 copy: ld (return),sp jf.ESC-Aussprung. 


A33B 
ASSE 
Asa 
A344 
A346 
A348 
AS34A 
ASAC 
A34D 
AS4E 
AS4F 
A352 
A351 
A355 
A356 
A357 
A358 
A359 
ASSD 
ASSE 
A361 
A364 
A366 
A367 


A36A 
A36E 
A371 


A374 
A377 


AS7A 
A37D 
AS7E 
AS?7F 
A382 
A385 
A386 
A389 
A3SC 
A38D 
AS8F 
A39B 
A371 
A392 
A395 
A398 
A39B 
A39C 
AS39D 
ASPE 
ASFF 
A3AB 


ASA2 
ASA4 


2117A3 
119999 
CDi11BC 
FEBL 
2895 
FEB2 
2997 
19 

19 

SE 

23 

56 
EDSIBSAAS 
23 

SE 

23 

56 
EDSIF6AS 
23 
2190498 
11B1A3 
EDB® 
7E 
32ASAS 


FD2132A3 
CDE?7BB 
FD7728 


2155A4 
CD46A4 


219991 
2B 

ES 
Zı4FA4 
CD46A4 
Ei 
119999 
B1ADDO 
cs 
2684 
DS 

c5 

ES 
CDF2BB 
CDD4A3 
cD13A4 
Ei 

2B 

2B 

ci 

Di 
19ED 


2694 
ES 


2758 
2768 
2778 
2788 
2798 
2898 
2819 
2828 
2839 
2848 
2859 
2868 
2878 
2889 
2898 
2998 
2919 
2928 
2939 
2949 
2958 
2968 
2978 
2988 
29978 
3998 
3918 
3928 
3938 
3948 
3958 


3968 
3978 
3988 
3098 
3198 
3119 
3128 
3139 
3148 
3158 
3168 
3178 
3188 
3199 
3298 
3218 
3228 
3239 
3249 
3258 
3268 
3278 
3288 
3298 
3398 
3319 
3329 


Id 


hl,modis 


;Adresse vorbereiten 


ld de,nxtmod-modis 
call getmod ;Mode holen 
cp 1 
jr z,labi 
cp 2 
jr nz, lab2 
add hl,de sund daraus Tabellen- 
labi: add hil,de 5jAnfang berechnen 
lab2: 1d e,(hl) 
inc hl 
ld d,(hl) ;Dann folgende Werte 
1d (beregti),de jeinstellen! 
ine hl 
1d e,(hl) sbc-Reg in Zeile 3159 mit 
inc hl ; Anzahl der Y-Pixel 
1d d,(hl) 5 laden. 
ld (tocall+1),dejcall entsprechend änd. 
ine hl 5 in Zeile 3228 
1d be,4 ;Anzahl d.Decrements fest- 
ld de,decrem ; leg. (Z.3439-3469). 
lidir ;b-Reg i.Zeile 3319 laden 
1d a,(hl) ; (Zahl d.Nadeln in 
1d (byts+t1),az der Breite) 
' 
1d iy,paper 
call getpap ;}Paperfarbe bestimmen u.z. 
1d (iyt2),a ;jVergleich abl.,iy=Zeiger. 
3 
ld hl,zeiesc ;Zeilenabstand senden, 
call send ;8-Nadel-Höhe. 
3 
sHauptschleife 
1d h1,498 shl= 488 tHöhe-Koord.) 
zeil5®: dec hl 5hl-1 weil 8-399, ist auch 
push hl jachtes dec-hl i.Schleife. 
1d hl,graesc 5Grafiksequenz senden. 
call send 
pop hl 
id de,® ;de=9,ganz links beginnen. 
bereg: 1d bc,16®8 sPixel/Zeile-entspr.Mode. 
hbzeil: push bc 
1d b,4 
pixel4: push de ;Innerste Schleife: 
push bc }4Pixel untereinand.testen 
push hi ;Grauwerte bestimmen und 
call tstpkt ;jbei Druckerbytes ablegen. 
tocall: call sprngg® 
call rotate 
pop hl 
dec hl ;2%dec w.immer 2 vertikale 
dec hl ;Koord. ein Pixel ergeben. 
pop be 
pop de 
dinz pixel4 
’ 
byts: ld b,4 ;''Modeabhängig,Anz.d.tat- 
push hl ;sächlich z.Ausdruck kom- 
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ASAS 
ASAB 
A3AF 
ASAA 
ASAB 
ASAC 
ASAD 
ASAE 
ASAF 
ASB® 
ASBi 
ASB2 
ASBS 
ASB4 
ASBS 
ASB& 
ASB? 
ASBS 
ASBY 


A3BB 
ASBC 
ASBF 
ASCc2 
ASCS 
ASsc4 
ASCS 
ASCE 
ASC? 
ASC8 
ASC9 
ASCA 
ASCB 
ASCC 


ASCE 
ASDi 


ASD4 
ASD? 
ASD? 
ASDB 
ASDD 
ASDF 
ASEI 
ASES3 
ASES 
ASE? 
ASEI 
ASEB 
ASED 
ASEF 
AISF® 


ASFI 


98 


cD24A4 


Ei 
23 
23 
23 
23 
23 
23 
23 
23 
13 
13 
13 
13 
ci 
2B 
78 
Bi 
zon1 


ES 


zi161A4 
CD46A4 


Ei 
2B 
2B 
2B 
2B 
2B 
2B 
2B 
7c 
BS 
2BAF 


215BA4 
C346A4 


FDBEO8 


2628 
2814 
B6FF 
FEB4 
389E 
B6AE 
FEBS 
3898 
D6AA 
FESC 
3892 
23682 
78 

c7 


FDBESS 


3338 
3349 
3359 
3369 
3379 
3389 
3399 
3499 
3418 
3429 
3438 
3449 
3459 
3469 
3478 
3488 
3498 
3599 
3518 
3528 
3538 
3549 
3558 
3568 
3579 
3589 
3598 
3698 
3619 
3629 
3638 
3648 
3658 
3668 


3679 3 


3689 
3698 
3798 
3718 


3728 
37398 
3748 
3759 
3768 
3778 
3789 
3799 
3829 
3819 
3828 
3838 
3849 
3859 
3869 
3879 
3888 
3898 
3989 


call 


pop 
inc 
inc 
inc 
inc 
inc 
inc 
ine 
inc 
inc 
inc 
inc 
inc 
pop 
dec 
1d 

or 

jr 


push 


1d 


call 


pop 
dec 
dec 
dec 
dec 
dec 
dec 
dec 
1d 

or 

jr 


1d 
ip 


Pixel in MODE ® 


ep 
ld 
jr 
1d 
cp 
jr 
1d 
cp 
jr 
1d 
ep 
jr 
1d 
ld 
ret 


ep 


druck 
hl 
hi 
hl 
hl 
hl 
hl 
hi 
hi 
hl 
de 
de 
de 
de 
bc 
be 
a,b 
c 


nz,hbzeil 


hl 


hl,linefd 


send 
hl 
hl 
hi 
hi 
hi 
hl 
hi 
hl 
a,h 
1 


nz,zeil59 


hl,retesc 


send 


ENDE Hauptschleife 


(iy+®) 
b,weiss 
z,setcol 
b,schnwrz 
4 
c,setcol 
b,dgrau 
8 
c,setcol 
b,mgrau 
12 
c,setcol 
b,hgrau 
a,b 


Pixel im MODE 1 lesen 


(iy+®) 


lesen 


jmenden Druckerbytes. 


3Da noch immer i.d.selben 
}G6rafikzeile müs.d.2 decr. 
sder Zeilen 3258/68 nach 4 
}Durchläufen ausgeglichen 
jwerden. 


;'!!Modeabhängig 
5Anz.d.horizontalen Pixel 
sdie zu überspringen sind. 


3Grafikzeile fertig ? 


iWenn ja Line-Feed senden. 


;if.neue! Grafikzeile jetzt 
id. 8 Incr.neutralisieren. 


jhier nur ?7%dec hl damit 
}Sprungbedingung erfüllt 
;sein kann (h1=9) ! 


in. insges.5@ Durchläufen 
itfertig (59 Halbzeilen). 
Drucker in Einschaltmodus 
}jbringen und dieses RET 
inach BASIC nützen. 


;jPixel m.Paper vergl., 
sw. wahr d.weiß als Farbe. 


;Sonst d.Grauw. bestimmen, 
54 versch. Farben geben e. 
;Grauwert. 


;jschließlich diesen Grau- 
jwert in Akku laden. 


IGleiche Prozedur i.Model, 
inur daß hier alle Farben 


ASF4 
ASF& 
AIF8 
ASFA 
ASFC 
ASFE 
ADD 
A492 
As94 
A496 


A428 
AADA 
A4OD 
AADF 
Aal 


Aa13 
A415 
Ag18 
A41A 
Ag1B 
As41D 
As1E 
A428 
Aa21 
Aa423 


Aaa24 
Ag427 
A428 
A42B 
A42C 
A42E 


As2F 
A432 
A433 
A433 
A437 
A438 
A43B 
A43D 
A248 


Aal 
Aq45 


A446 
A447 
A448 
A449 
Ag4C 
A44D 
AgAF 
A455 
A45B 
As61 


2698 
28F7? 
BöFF 
FEBL 
28Fi 
B6A4 
FEB2 
28EB 
2682 
18E7 


B6FF 
FDBEB® 
29E9 
2699 
18DC 


2DEB2 
2133A3 
26984 
27 
CB16 
23 
129FA 
2D 
28F2 
c9 


2133A3 
7E 
CDZFA4 
23 
19F97 
c9 


F5 
CDS9BB 
FEFC 
Z89A 
Fi 
CDZEBD 
38F2 
CD2BBD 
c9 


ED7BS1AS 
c, 


7E 

B? 

c8 
CD2FA4 
23 

18F7 
1B4B8292 
1B419898 
1B3290299 
QADDER 


3919 
3928 
3939 
39749 
3959 
3968 
3978 
3988 
3998 
4908 
AaB1D 
4928 
4939 
4248 
4959 
4968 
4979 
4989 
4998 
4199 
4119 
4128 
4138 
4148 
4150 
4169 
4178 
4188 
4199 
4200 
4219 
4229 
4238 
4249 
4259 


4278 
4288 
4298 
4398 
4319 
4328 
4338 
4349 
4358 
4368 
4378 
4388 
4398 
4498 
4419 
4428 
4438 
4448 
4459 
4468 
4479 
4489 
4499 


Id 
jr 
1d 
cp 
jr 
1d 
cp 
jr 
1d 
jr 


b,weiss 
z,setcol 
b,schnurz 
1 
z,setcol 
b,mgrau 
2 
z,setcol 
b,hgrau 
setcol 


sdargestellt werd. können. 


Pixel im Mode 2 lesen jIm Mode 2 gibt’s nur 


sprng2! 


waiprt: 


’ 
escape: 


’ 
send: 


graesc: 
zeiesc:! 
retesc: 
linefd: 


1d 
ep 
jr 
1d 
jr 


1d 
ld 
1d 
rlca 
ri 
inc 
dinz 
dec 
jr 
ret 


1d 
1d 
call 
inc 
dinz 
ret 


push 
call 
ep 
Ir 
pop 
call 
jr 
call 
ret 


1d 
ret 


1d 
or 
ret 
call 
inc 
ir 
defb 
defb 
defb 
defb 


b,schuwrz 
(iy+®) 
nz,setcol 
b,weiss 
setcol 


c,2 
hl,drbyts 
b,4 


hl,drbyts 
a,(hl) 
waiprt 

hl 

13 


af 
readch 
#tc 
z,escape 
at 

busy 
c,waiprt 
print 


iVorder- und Hintergrund. 


}D.Drucker-"Farb"-Wert der 
jReihe nach in die 4 
;Druckerbytes schieben. 


JtE.Zeichen dafür w.effek. 
id.Rotate-Befehle des Z-898 
seingesetzt werd. können!) 


3Von 4 bereitgest.Drucker- 
ibytes b-viele z. Ausdruck 
jbringen (je nach Mode). 


;Teste auf ESCape, dann 
$5zurück nachdem Stack 
jausgeglichen. 


Warten auf Busy, damit k. 
}Zeichen verloren geht u. 
sdann drucken. 


sp, (return) 


a,(hl) 
a 

z 
waiprt 
hi 
send 


5Hilfsprogramm zum Senden 
;Steuersequenzen an den 
;Drucker. 


27,"K",#89,902,90,9 ;Platz reicht 


27,"A",8,2,9,8 
27,"2",0,2,0,8 


19,13,8 


jauch f.mehr 
sESC-Seg.eines 
sand. Druckers. 


£2 


Befehl TEXT 
ITEXT,farbe,breite,hoehe,@String 


z.B. 
18 a$="Hallo"” 
28 ITEXT,1,19,4,@a$ 


Der Befehl plottet ein beliebiges Zeichen oder String beliebig groß 
auf dem Bildschirm. Die Breite und die Höhe sind dabei in Grafikpixeln 
angegeben. 


Das Programm: 

Zuerst üblicherweise die Überprüfung auf die Parameteranzahl und even- 
tuell Rücksprung. Dann wird der Grafikkursor in einer Speicherzelle 
abgelegt. Nun wird das erste Zeichen des Strings geholt, überprüft ob 
die Matrix dafür im ROM oder RAM zu suchen ist, dann die Matrix in 
einen RAM-Buffer kopiert (zur einfacheren Handhabung) und schließlich 
diese Matrix mit den angegebenen Parametern in X%- und Y-Richtung 
vergrößert und gleichzeitig in der gewünschten Farbe geplottet. 


Dies geschieht solange, bis der String abgearbeitet ist, dabei werden 
die Koordinaten immer für das nächste Zeichen aktualisiert. 


4599 *E 
4518 jBefehl TEXT 
45298 3 
A464 FEB4 4539 text: cp 4 iWenn weniger als 4 Argum. 
As66 CD 4549 ret nz dann zurueck. 
A467 DD66BL 4559 1d h,tix+1) ;Stringlänge holen, 
A46A DDSEBS 4568 1d 1, tix+9) 
A4&ED FE 4579 1d a,(hl) 
As6E B7? 4589 or a 
As6F CB 4599 ret z iwenn Null dann zurück. 
A478 3246A3 4628 1d (lenstr),a 
A473 23 4618 inc hl }Stringdescriptor 
A474 SE 4628 id e,(hl) jaufbereiten. 
A475 23 4638 inc hl 
A476 56 4648 1d d,(hl) 
A477 EDSIS44A5S 4659 id tadrstr),de 
4669 | 
A47B DD7EBZ 4678 id a,(ix+2) ;jHöhe und Breite holen 
As7E 3242AS 4689 1d (hoehe),a ;sund ablegen. 
AaBl 3243A5 46979 1d {hoeheil),a 
A484 DD7EB4 4729 1d a,(ix+4) 
A487 3241A5 47198 1d (breite),a 
A48A DD7EdE 4729 ld a,(ixtö) igewünschte Grafikfarbe 
A48D FEIB 4739 cp 27 ijsetzen. 
AsSF DO 4748 ret nc 
A498 CDDEBB 4758 call graset 
4768 3 
A493 CDC6BB 4778 call askcur }Grafikkursor holen 
A496 EDS347AS 4788 1d (xpos),de ;jund ablegen. 
A49A EDSIS49AS 4798 id (xposi),de 
AM9E 224DAS 4899 1d (ypos),hl 
AgA1l 224FA3 4819 1d (yposi),hl 
4829 i 


92 


AgaAa 
AA? 
A4AB 
A4AF 
AgAA 
A4AD 
AgAF 
A4B2 


A4B4 
A4B5 
A4B? 
A4B? 
A4BB 


A4BC 
AaBF 
AaCc2 
Aaca 


AaCcS 
AaCcEB 
AaCB 
AACD 


AsCE 
AaD1 
AsD2 
AaDS 
A4D& 
AsD7? 
A4DA 
A4DB 
AADD 


A4DE 
AaDF 


AgEl 
AgE2 
AgES 
AgE6 
AgE? 
A4EA 
AgEE 
AgEF 
AAFO 
A4F1 
AaF4 
AaFS5 
A4F& 
AaF? 
A4FB 
A4FA 


AAFB 
AMFE 
A528 


ZA44AS 
7E 

23 

ES 
CDASBB 
3295 
CDBCA4 
1811 


DF 
B9IAA 
189C 
BCA4 
FC 


1153A5 
219899 
EDBS 
c, 


2153A5 
2251AS 
2698 
c5 


3A42AS 
47 
ZAS1AS 
7E 

23 
2251A5 
c5 
2698 
c5 


27 
391A 


FS 
3A41AS 
47 

7B 
ZA4FAS 
EDSB49AS 
c5 

ES 

DS 
CDEABB 
Di 

Ei 

13 

ci 
19F4 
Fi 


2A49AS 
2698 
sr 


4839 
4849 
4859 
4869 
4878 
4889 
4898 
4998 
4918 
4928 
4938 
4949 
4958 
4968 
4979 
4988 
4998 
5999 
5218 
5929 
5938 
5949 
5059 
5968 
5278 


5989 
5298 
5198 
5118 
5128 
5159 
5148 
Ss159 
5168 


5179 
5189 
5198 
5208 
5218 
3228 
5238 
3248 
3258 
5268 
5279 
5289 
3299 
5398 
5319 
5328 
5339 
5349 
5358 
5368 
5378 
5388 
3399 
5428 


jprogramm text 


loopi: 


rom: 


adr2: 


12 
weiter: 


loop2: 


loopS: 


noplot: 


1d 
ld 
inc 
push 
call 
jr 
call 
jr 


rst 
defw 
jr 
defw 
defb 


1d 
1d 
Idir 
ret 


id 
1d 
id 
push 
ld 
id 
1d 
id 
inc 
id 
push 
id 
push 


rica 
jr 


push 
1d 
1d 
id 
1d 
id 
push 
push 
push 
call 
pop 
pop 
inc 
pop 
dinz 
pop 


id 
1d 
1d 


hl, tadrstr)5iwo ist Matrix vom 


a,(hl) saktuellem Zeichen? 

hi 

hi 

getmat ;Im ROM oder RAM. 
nc,rom ;5Carry=9,dann im ROM 
adr2 3Copy RAM-Zeichen nach 
weiter ;Matrixbytes 

#18 iCopy ROM-Zeichen nach 
rerom ;Matrixbytes 

weiter 

adr2 

#tc 


de,matrix jUnterroutine zum Kopieren 
bc,8 


hil,matrix ;Matrixzeiger auf Anfang 
(matzei),hiivon Matrix. 


b,8 ;sB=8 - (Ein Zeichen hat 8 
be ;Bytes),auf Stack. 

a, (hoehe) 5Höhe nach B 

b,a 

hl,imatzei)5sAkku m. aktuellem Matrix- 
a,(hl) ;Byte laden,HL-Zeig.incre- 
hi jmentieren u.Zeiger zurück 
(matzei),hil 

be 5Höhe auf Stack 

b,8 jEin Zeichen i.im Original 
be 38 Bit breit,dies a.Stack. 


jAkku rotieren durch Carry 
nce,noplot ;Bit i.Carry=2,nicht plot. 


af 5Akku wird noch gebraucht. 
a, (breite) 

b,a gewählte Breite nach B. 
a,e - 


hil,(yposi) 5SHL+DE mit aktueller 

de, (xposi) jPcsition laden 

be ;Plotroutine 

hl }Sooft mal in X-Richtung 
de ;plotten w. Breite angibt. 
plot 

de 

hi 

de 

be 

loopS 

af 


hl,(xposi)sfür nächste Plotposition 


b,8 sxposi=xposi+tBreite 
e,a 
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AS5g1 
A524 
A525 
A596 
A597 


ASgA 
ASSB 


ASSD 
AS19 
A513 
AS16 
A519 
AS1A 
AS1D 
ASIE 


AS29 
As21 


AS23 
AS26 
A527 
ASZC 
AS2D 
A539 
AS31 


AS32 
A536 
ASSA 
ASSE 
Aasal 
A542 
A543 
A544 
A546 
A547 
A549 
AS54B 
AS4D 
AS4F 


Ass1 
ASss1 
ASS3 


Befehl 


a,tbreite) 
c,a 

a,e 

hil,be 
{xposi),hi 


bc seine Bitreihe abarbeiten. 
loop4 


{xposn),hlixposn=Anfg.des 1.Punktes 
hl,(txpos) jvom nächsten Zeichen. 
(xposi),hljxposi=xpos für nächste 
hl, (yposi) jPunktreihe. 


hl }Höhe-1,(ypos) 

(yposi),hil 

be ssooft m. d.gleiche Punkt- 

loop3 reihe untereinandersetzen 
iwie Höhe angibt. 

be inächst.Bitreihe desselben 

loop2 }Zeichens bearbeiten. 


hl,(ypos) jursprüngliche Höhe it Ar- 
(yposi),hlibeitshöhe für Neubeginn. 
a, (lenstr) jStringlänge-i 


a 
(lenstr),ajsolange bis alle Zeichen 
hi jaus String abgearbeitet 
z Isind. 


de, (xposn) jsonst Anfang %-Richtung 


(xpos),de ;+#ür nächstes Zeichen 
(xposi),de zjumschaufeln. 
loopi 

J 

L} 

2 

2 

2 

2 

2 

[} 

2 

2 


Jauch als Zwischenspeicher 
sfuer Stackpointer bei COPY. 


SAg1AS 5419 1d 
ar 5429 ld 
7B 5439 1d 
27 5449 add 
2249AS 5459 1d 
5468 5 
ci 5478 pop 
12D8 5488 dinz 
5499 3 
224BAS 5599 1d 
Z2A47AS 5519 1d 
2249A5 5529 1d 
ZA4FAS 5539 1d 
2B 5542 dec 
224FAS ss5g 1d 
ci 5569 pop 
19BA 5579 dinz 
5589 } 
ci 5599 pop 
18AA 56429 dinz 
5619 3 
ZA4DAS 5628 1d 
224FAS 5439 1d 
3A46AS 5649 ld 
SD 5659 dec 
3246AS 5668 1d 
Ei 5678 pop 
ce 5688 ret 
5699 3 
EDSB4BAS 5799 1d 
EDS347A5 5719 1d 
EDS349A3 3729 1d 
C35A7A4 5739 jp 
29 5749 breite: defb 
29 5759 hoehe: defb 
29 5769 hoehel: defb 
22998 5779 adrstr: defw 
29 5789 lenstr: defb 
2209 5798 xpos: detw 
2299 588228 xposi: defm 
22999 5818 xposn: defw 
2228 5822 ypos: defw 
2298 58389 yposi: detw 
5848 
5859 
5869 return: equ 
2229 5878 matzei: defw 
22222929 5889 matrix: defb 
TAUSCH 


}TAUSCH, @Variable,@Variable,Art 


I TAUSCH, @a8, @b$,9 
! TAUSCH, @a%, @b%, 1 


!TAUSCH, @a 


4 


‚a ‚2 


für Stringvariable 
für Integervariable 
für Fließkommavariable 


Mit diesem Befehl können Sie Variable gleicher Art austauschen. 
Besonders bei der Stringbehandlung ein sehr nützlicher Befehl, denn 
bei diversen Sortierprogrammen können Sie die gefürchtete Gar- 
bage-Collektion, die die Sortierung unverhältnismäßig verlangsamt von 
nun an vergessen. Die Variablen werden gegeneinander ausgetauscht, 
ohne daß sie neu angelegt werden. Sie müssen bei den Strings nur 
darauf acıten, daß beide die gleiche Länge haben, sonst springt das 
Programm zurück, ohne daß etwas geschieht. 


Das Programm: 


Je nach Art der zu tauschenden Variablen werden 2-(Integer), 5-(Fließ- 
punkt) und bis zu 255 Bytes bei Strings verarbeitet. 


5899 *E 
5999 jBefehl TAUSCH 
39719 3 
ASSB FE®S 5929 tausch: CP 3 j3 Parameter sonst zurück 
ASSD C® 5938 RET NZ 
ASSE DD6EB2 5949 LD L, (1%X+2) iHL=Pointer auf Var. oder 
AS61 DD66483 5958 LD H, (1%+3) jDescriptor 1. 
A564 DDSEBA 5968 LD E, (IX+4) gDE=Pointer auf Var. oder 
A567 DD5625 5979 LD D, (1x+5) iDescriptor 2. 
AS6A DD7EB® 5988 LD A,(1IX+9) ;Akku = Art (Text,Int...) 
39998 3 
AS6D CB4F 62082 BIT 1,A Prüfe Art und springe 
AS6F 291D 6919 JR  NZ,real jentsprechend. 
6929 3 
AS71 CB47? 6932 BIT 8,A 
A573 2915 RAR IR NZ,integ 
6959 3 
6R6B Itext 
As75 1A 62978 LD A,(DE) zurück w. Länge String 1 
A576 B7? 6988 OR A jist Null. 
A577 C8 6998 RET Z 
6188 I 
AS78 46 6119 LD B, (HL) ;jzurück w. Länge String 1 
A579 B8 6120 cp B jund String 2 ungleich. 
AS7A CB 6139 RET NZ }B-reg ist Länge String 
6149 3 
AS7B 13 6159 INC DE ;HL + DE zeigen nun auf 
AS7C 23 6168 INC HL jAdresse von Strings. 
6178 3 
6189 jSimulation von LD DE, (DE) 
AS?7D ES 6198 PUSH HL }Programmiertrick um 
AS7E EB 6298 EX  DE,HL idas Register DE mit dem 
AS7F 4E 6218 LD C,tHL) ;Inhalt der Adresse zu 
AS8@ 23 6228 INC HL jladen, auf die DE vorher 
Assl 56 6238 LD D,(HL) jzeigte (16-Bit-Wort). 
A582 57 6248 LD E,C 
A583 Ei 6258 POP HL 
6269 3 
6278 $Simulation von LD HL, (HL) 
A584 4E 6289 LD  C,tHL) ;Das gleiche mit HL-Reg. 
A585 23 6298 INC HL 
A586 66 6308 LD H, (HL) 
A587 69 6318 LD L,c 
A588 1896 6328 JR exanch 
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6339 } 


ASSA 6B2 6348 integ: LD B,2 s} Integer hat zwei Byte, 
ASSC 1882 6359 IR exanch sdiese tauschen. 
6369 3 
ASBE 2695 65798 real: LD B,5 }Realzahl hat 5 Byte 
6388 3 
AS92@ 4E 6399 exanch: LD C,(iHL) stauschen (DE)<->(HL) 
AS91 1A 64908 LD A,(DE) »B-Reg ist Zähler. 
AS92 77 6418 LD (HL),A 
AS93 79 6428 LD A,c 
A594 12 6438 LD (DE),A 
AS9S 13 6449 INC DE 
AS96 23 6458 INC HL 
AS97? 19F7 6468 DJINZ exanch 
AS99 C9 6479 RET 


Befehl PAUSE 

IPAUSE,wert * 1/12 sec. 

Es lässt sich damit ein Päuschen bis zu 6555 Sekunden oder ca. 119 
Minuten einlegen, ohne eine lästige leere FOR-NEXT- Schleife in Basic 


schreiben zu müssen. 


Das Programm besteht nur aus zwei ineinander geschachtelten Schleifen 
mit einer Break-Tasten Abfrage, falls es Ihnen zu lange dauert. 


6489 *E 

6498 ıBetehl PAUSE 

6599 I 
ASFA DDEAB1 6519 pause: Id h,tix+1) 
AS9D DD6EBB 6528 1d 1,tix+@) 
ASAQ BIFSBI 6539 aloop: Id be,#@1#3 
ASA3 CD@9BB 6548 bloop: call readch 
ASA& FEFC 6559 cp #tc 
ASAB C8 6569 ret z 
ASAP RB 6578 dec be 
ASAA 78 6589 1d a,b 
ASAB Bi 6599 or c 
ASAC 2ZBFS 66428 jr nz,bloop 
ASAE ZB 6618 dec hl 
ASAF 7C 6629 1d a,h 
ASB® B5S 6638 or 1 
ASB1 ZBED 6648 jr nz,aloop 
ASB3 C9 6659 ret 


Befehl DPOKE 
ıDPOKE, adresse, 16-Bit-Wert 


Damit lässt sich ein 16-Bit-Wert in Zilog Schreibweise (lower-Byte zu- 
erst) in den Speicher poken. 


Befehl DPEEK 


IDPEEK, adresse, @wert 
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Ein 16-Bit-Wort wird wieder in einer Basicvariablen abgelegt, deshalb 
der "Klammeraffe"” vor der Variablen "wert”. 


66649 *E 
6678 iBetehl DPOKE 
6688 I 
ASB4 CDCEAS 6699 dpoke: call var 
ASB? 73 67008 id (hl),e ;16-Bit Wert DE bei 
ASBS 23 6718 ine hl iAdressse (HL) ablegen. 
ASBY 72 6728 1d thl),d 
ASBA C9 6738 ret 
6748 i 
6759 ıBetehl DPEEK 
6768 3 
ASBB CDC6AS 6778 dpeek: call var 
ASBE 4E 6780 1d ce,‘nl) ;16-Bit-Wert (HL) 
ASBF 23 6798 ine hl inach BC-Reg. 
ASC® 46 6808 1d b,(hl) 
ASCI EB 6818 ex de,hl DE nach HL! HL wieder 
Aasc2 71 6828 1d {hl),c jals Zeiger verwenden 
ASC3 23 6832 inc hl ;diesmal auf Integer- 
ASCc4 78 6849 1d (hl),b ;Basicvariable urd Wert 
AScC5S C9 6859 ret sablegen. 
6868 i 
ASC6 FEBZ 6879 var: cp 2 
ASsc8 ci 6888 pop bc 
ASC9 CH 6898 ret nz 
ASCA C5 6909 push bc 
ASCB DD6EB2 6918 id 1, tix+2) 
ASCE DD66R3 6929 id h, (ix+3) 
ASDIi DDSEB® 6938 1d e, (ix+9) 
ASD4 DDS6B1 6948 ld d,tix+1) 
ASD7 C9 6958 ret 


Befehl RESTORE 
IRESTORE,Variable als Zeilennummer 


z.B. 

19 x=12 

28 DATA 1,2,3 

3@ DATA 4,5,6 

49 READ a:PRINT a 

58 IF a=3 THEN |RESTORE x 
68 GOTO 48 


Was in diesem Beispiel nicht so recht zum Ausdruck kommt, ist, daß Sie 
eine berechnete Zeilennummer einsetzen können und somit bei einem 
Programm mit einem großen DATA-Anteil keine umständiıche Pro- 
grammierung mehr in Kauf nehmen müssen. Allerdings wird bei einer 


Neunummerierung des Programmes eine Überprüfung der Berechnungsformel 
notwendig sein. 


Das Programm: 


Diese Routine enthält einige Besonderheiten. Zum ersten wird das 
Basic-ROM permanent zugeschaltet, und zum anderen in diesem ROM eine 
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Interpreter-Routine aufgerufen, die aus einer angegebenen Zeilennummer 
den physikalischen Anfang dieser Zeile berechnet. Wenn die Zeile 
gefunden wurde, wird sie an einer Systemadresse mit Namen DATAZEIGER 
abgelegt, anderfalls gibt’s eine normale Fehlermeldung. 


Die Basic-Interpreter Adressen sind beim CPC-664 / 6128: 


für "suchzl" BEBEL (644)$ KEBSC (6128) statt KE79IA 


für "datazg" BKAE1? (664/6128) statt KAE3®. 

6969 *E 

6978 Befehl RESTORE 

6988 3 
ASDS CD293B9 6998 restor: call basrom toberes ROM zuschalten. 
ASDB DD5681 7298 1d d,tix+1) »Zeilennummer nach DE 
ASDE DDSE® 7818 ld e,(ix+2) ıBasic-Zeile DE suchen 
ASEI CDSCES 7928 call suchzi Adresse! Basiczeilen- 
ASE4 2B 7938 dec hl ibeginn berichtigen und 
ASES Z2217AE 793948 1d (datazg),hl jals neuen DATA-Zeiger 
ASEB C9 7958 ret sablegen. 


Befehl OVER1/%8 


IOVERI schaltet das überschreiben ein. 
!OVER® schaltet das überschreiben aus. 


Mit dem ersten Befehl können Sie Zeichen übereinander legen, ohne das 
untere zu löschen,der zweite Befehl stellt den Normalzustand wieder 
her. 


Befrfehl TASTE 

ı TASTE 

Warten auf einen Tastendruck. Ersetzt die Basic-Befehlsfolge WHILE 
INKEYS....-U-8.W.. 

Es wird nur eine ROM-Routine verwendet und deshalb zweigt das Kommando 
direkt von der Sprungtabelle ins ROM ab. 

Befehl INVERSE 

ı INVERSE 


Vertauscht bis zum erneutem Aufruf die Vorder- und die Hintergrund- 
farbe, hier wird ebenfalls nur eine ROM-Routine verwendet. 


7069 #E 
7878 Betehle OVERB/I 
ASE9 AF 7888 overß: xsor a 
ASEA C39FBB 7098 jp  setgnd 
ASED SD 7188 overl: dec a 
ASEE C39FBB 7118 jp setgnd 
7128 3 
ASFi 7139 end 
7148 1 -----------777777 0 


Pass 2 errors: 98 
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Hardware- 
Erweiterungen 


Dieser Teil wendet sich an die Bastler unter den CPC’lern. Es werden 
nacheinander folgende Schaltungsbeschreibungen und wenn nötig die 
Treibersoftware dazu vorgestellt: 


Daten- und Adressbuffer 
Adressdecoder 
ROM-Selektion 

24-Bit I/O-Port 

einige Schaltverstärker 
Hardware-Timer 
Frequenzzähler 

einfache serielle Schnittstelle 
v24 mit Z-89 STI 
8-Kanal A/D-Wandler 
D/A-Wandler 

EPROMer 
8-Bit-Centronics 
externes Netzteil 


EZ J2E ‚22 DZ /22 Ze Ze 22 22 Z2 22 Zu ze; 


E25 2 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2.222722 2.2.2.2 227222727272 27227272202 
Gleich am Anfang ein Tip: Wenn Sie den CPC 454 mit Floppy 
besitzen, dann halten Sie die Anschlüsse zum Controller so 

kurz wie möglich, sonst könnten Schwierigkeiten bei den 
Befehlen CAT und DIR auftreten. Warum nur bei diesen zwei 
Befehlen, ist noch nicht schlüssig geklärt, vermutlich hat 
es mit der pausenlosen Umschaltung vom ROM auf Bildschirm- 
speicherzugriff zu tun. Denn es wird zwar ordnungsgemäß 
eingelesen, aber auf dem Bildschirm wird außer dem 
Diskinhalt auch noch sonstiger ziemlich unsinniger Text 
ausgegeben. Der Fehler tritt nicht bei dem CP/M - DIR auf. 

Een 2 52 2 2 2 2 2 222 202 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 212 2 2 2 2 2 2 2 2 2 2 22 2 272 2212 2272 22 2 272 


E, „E /2E DZ DZ Ze DZ 22 22 ze: 
E. ‚ZuE ‚ZZ Ze Ze Ze Ze Ze ze oo 


übrigens habe ich alle Erweiterungen mit der Fädeltechnik aufgebaut, 
was einwandfrei funktionierte ! 


Interner Daten- und Adresshuffer 


Bei allen Erweiterungen eines Rechnersystem ist es besser, die 
Adress-, Daten- und die wichtigsten Steuerleitungen zu buffern, um den 
Prozessor bei zuviel angeschalteten TTL- Eingängen nicht zu sehr zu 
belasten. Denn als Heizung ist er doch etwas zu schade ! 

Um aber gleich einem falschem Mißverständniss zu begegnen, es macht 
dem Prozessor noch nichts aus, wenn mal ein einziger Port ange- 
schlossen wird, aber wenn die Floppy, der interne Speicher, evtl. 
externe ROM’s plus diverser I1/O-Ports daranhängen, wird’s ihm zuviel. 
Also ein Treiber muß her ! 
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Da gibt’s zunächst einmal eine einfache Schaltung, die aber einen 
Eingriff in den Rechner -also Vorsicht wegen der Garantie t1- 
erfordert, und eine etwas kompliziertere, die außen angeschaltet wird. 


Die erste Möglichkeit, die ich Ihnen nicht vorenthalten will, ist die: 


Sie nehmen den Prozessor aus der Fassung, geben ihm und den 
zusätzlichen Pufferbausteinen eine kleine Extraplatine und verbinden 
das ganze mit 49-poligen IC - Steckern zum Anquetschen mit der 


eigentlichen Prozessorfassung. Nicht in jedem CPC-Gehäuse ist aber 
dafür noch Platz, besonders wenn Sie einen mit Abschirmblech um die 
Platine besitzen. 

Der Vorteil eines solchen Eingriffs ist die einfachere Beschaltung. 
Außer den vier unerlässlichen Treibern vom Typ 74 LS 245 und 74 LS 244 
sind nur noch zwei IC’s erforderlich. 


Gegenüberliegend finden Sie den Schaltplan dazu: 


Um für alle Eventualitäten gerüstet zu sein, ist sowohl an eine 
INTerrupt-ACKnowledge Bearbeitung ( um das OR-Gatter ) als auch an 
eine Busanforderung ( BUSR@ ) von außen gedacht worden. 

Bei dem INTACK-Signal (Interruptbeantwortung) holt sich der Prozessor 
einen Befehl, aber diesmal nicht vom Speicher, sondern von einem Z-88 
I/O-Port. Dies geschieht durch ein gleichzeitiges low auf Mi 
(Maschinen-Zyklus 1 oder Befehlsholzyklus) und IOR@ ( I/O Anforderung 
). Dann ist der Ausgang des OR’s low und ebenfalls der Ausgang des mit 
zwei NAND’s aufgebauten AND. Diese Null schaltet den ’245- Puffer auf 
lesen (B nach A). Außer bei diesem besonderen Ereignis wird der ’245 
noch bei RD aktiv (logisch 9) auf "lesen" geschaltet. 


Der Ausgang BUSAK ist normalerweise logisch 1 {der Prozessor arbei- 
tet.), außer wenn extern der Prozessor vom System durch eine & am 
BUSR@-Input abgekoppelt werden soll. Diese 1 auf BUSAK muß durch einen 
Inverter zu einer 9 für die CS- Eingänge der Puffer gemacht werden, um 
sie aktiv werden zu lassen. Zugegeben, das wird sehr selten vorkommen. 


Der auf diese Weise gepufferte Prozessor könnte auch an jedem anderen 
Z89-System eingesetzt werden ! 


Externer Daten- und Adressbuffer 


Es ist kein Eingriff in’s Gerät erforderlich, dafür steigt aber der 
Logikaufwand etwas, denn am Erweiterungsport des Rechners liegen die 
Signale nicht mehr in Reinstform an wie am Prozessor selbst. Sie sind 
durch diverse RAM/ROM-, Ein- und Ausblendungen sowie durch interne 
1/0-Zugriffe auf z.B. Druckerport und Video-Controller verfälscht. Die 
Logik muß deshalb feststellen können, ob ein LI/O-Zugritff an einen 
neuen USER-Port oder für interne Port’s bestimmt ist. Ferner muß diese 
Logik reagieren auf einen externen ROM-Zugriff. Zu allem überfluß ist 
bei den Rerhnern mit eingebauter Floppy die Sachlage wieder etwas 
anders, denn nun muß der Floppy-ROM- und der I/O-Zugriff auf den 
Floppy-Controller im Gerät bleiben, also darf unser Datenpuffer nicht 
aktiv werden. 

"Nicht aktiv" in diesem Zusammenhang heißt nicht, daß der gute 245 
nicht mehr am Geschehen teilnimmt {sein (CS ist ja festverdrahtet), 
sondern er ist auf Schreiben (A zu B) gestellt. Es schadet ja nicht, 
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wenn er alle Daten des CPU’s nach "außen" bringt, die externen Bau- 
steine beachten diese Daten erst, wenn ihre Chipselects ebenfalls 
aktiv sind. 

Diese Beschaltungsart des CS-Eingangs geschah aus einem guten, nämlich 
aus einem "zeitlichen" Grund. Die Besitzer des CPC 464 hätten sich 
sonst gewundert, wenn sie den Floppy-Motor nicht mehr ausschalten 
könnten ! 


Warum, will ich kurz erklären. 
Dazu wäre es am besten, wenn Sie den Vorgang anhand des Laufwerk- 
Schaltplanes verfolgen könnten. 


In dieser Beschaltungsart wird der CS-Anschluß des ’245 erst nach 
diversen Gatterlaufzeiten aktiv, was zwar allen sonstigen 
Schaltungseinheiten nicht schadet ( Die Signallaufzeiten sind bei 
typischen Prozessor-Ports schon eingeplant.), aber eben einem kleinen 
vorwitzigen TTL-Flip-Flop im Controller des Laufwerks das den Motor 
ein-/ausschaltet. 

Dieses Flip-Flop vom Typ 74 LS 74 ist positiv Flankengetriggert und 
reagiert deshalb sauer, nämlich gar nicht, auf eine zu frühe Anstiegs- 
flanke (von low nach high). Denn das Signal IOWR, welches am Clock- 
Eingang des FF’s liegt, kommt früher als das Datenbit 8 tdurch den 
’245 verzögert), das am D-Input eingelesen wird. So wird bei der 
Schaltflanke immer noch der Tri-Stat-Pegel eingelesen, was einem High 
gleichkommt ! 


Gegenüberliegend finden Sie wieder den Schaltplan hierzu: 


Bei den CPC’s wird ein I/O Zugriff mit einer "3" auf Adressleitung Al 
eingeleitet und eine ROM-Umschaltung mit AlS ist "Q". Wenn also eine 
der beiden Adressleitungen auf Low-Pegel liegt, wird der NAND-Ausgang 
"1". Wenn dann noch IOR@ und RD Lowaktiv sind, wird der OR(J)-Ausgang 
ebenfalls low. Diese "2" kommt dann ohne Schwierigkeiten zum 
DIR-Eingang des ’245 und schaltet diesen auf "lesen". Bleibt dagegen 
das RD-Signal auf "1", was einem WRite gleichkommt, bleibt auch der 
DIR-Eingang auf "1" 

Die Verschaltung der Adressleitung A? ist nur bei den Rechnern 664 und 
6128 erforderlich und stellt sicher, daß ein Floppyzugriff nun im 
Gerät bleibt. A? ist bei einem I/O- Zugriff nur dann "9", wenn die 
Floppystation gemeint ist. 

Der andere "Ast” der Schaltung ist #ür’s externe ROM-Lesen verant- 
wortlich und wird durch ein ROMDIS ist "1" aktiv. Diese "1” kommt ja 
erst zustande, wenn die Software vorher ein externes "oberes" ROM 
eingeblendet hat. ROMENABLE vom Computer ist lowaktiv, muß also 
invertiert werden, wenn die AND- Bedingung des Vierfach-AND’s erfüllt 
sein soll. Wenn dann noch RD aktiv ("28") wird, ist der ROM-Zugriff 
perfekt und die Bytes rollen. 

Der andere Teil der Schaltung besteht nur noch aus den Adress- und 
Steuerleitungstreibern, was keiner besonderen Erklärung mehr bedarf. 
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Adressdecoder 


Bei den CPC’s geschieht jeder I/O-Zugriff mit einer echten! 16-Bit 
Adresse. Dabei wird das B-Register als High-Byte und das C-Register 
als Low-Byte interpretiert. Bei dem Maschinen-Befehl "OUT (C),A" ist 
also unsichtbar auch das B-Register beteiligt und darf deshalb nicht 
anderweitig benutzt werden. Aus diesem Grund reduziert sich auch der 
Z89-Befehlsatz etwas. Die Schleifen-I/0O-Kommandos ( z.B. INIR, OTIR, 
IND,OTD, etc.) fallen deshalb aus. Die einzigen I/O-Befehle, die Sie 
noch verwenden können, sind OUT (C),r und IN r,(C), wobei r irgendein 
Register bedeutet, bei IN r,(C) darf r aber nicht das B-Register sein! 


Dies gehörte zwar nur in zweiter Linie zum Thema Adressdecoder, sollte 
aber an dieser Stelle erwähnt werden. 


Adressbus ( und IOR@ ) 
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Die für Erweiterungen freigegebenen Adressen lauten! 

FOxx FAxx FAxx FBxx 
wobei bis jetzt nur das High-Byte berücksichtigt wurde. Das Low-Byte 
kann die Werte E® - FF annehmen, wobei FF nicht verwendet werden 


sollte, es dient für einen Peripherie-Reset. 


Unser Adressdecoder wertet die Adressen F8E®B - FS8FF aus und stellt 
folgende Adressen für die in diesem Buch gezeigten Erweiterungen zur 
Verfügung: 
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FSES -  F8SEF für die 16 Register des STI 


FSF® 8255 A-Port 
Fri 8255 B-Port 
F8F2 8255 C-Port 
FBF3 8255 Statusregister 
FeF4 8253 Zähler & 
FBFS 8253 Zähler 1 
FSOF& 8253 Zähler 2 
FBF? 8253 Steuerwort 
FSF8 -  F8SFE frei für weitere Zusätze. 


%*%% Schaltplan 3 *%* 


Wie schon vorher einmal angedeutet, ist bei den für uns freien LI/O- 
Zugriffen im High-Byte die Adressleitung AIG immer low. Die beiden 
Lows auf AB und A? ergeben sich durch den von mir gewählten Adress- 
bereich (F8xx). Die auf diese Weise aufbereitete Adresse gibt mit AS 
und IOR@ den Decoder frei. 

A@ und Al sind nur durchgeschleift, da die meisten Port’s intern schon 
vier Register haben, die durch diese zwei Bits angesteuert werden. Die 
Ausnahme von der Regel bildet der verwendete Serielle Schnitt- 
stellen-Baustein Z88-STI, der 164 interne Register sein eigen nennt. 
Deshalb mußten auch die Decoderausgänge YQ bis Y3 wieder mit einem AND 
verknüpft werden, um das CS-Signal für diesen Baustein über den 
gesamten Bereich anstehen zu lassen. 


Erweiterungs-ROM selektieren 


Die CPC’s können im oberen ROM-Bereich, also von RCO2@ aufwärts, 
mehrere ( 252 Stück a 16 kB ) ROM’s ansteuern. In diesen ROM’s können 
diverse RSX’en des Anwenders, Schnittstellentreiber oder weitere 
Programmiersprachen enthalten sein. 


Dabei werden Vorder- und Hintergrund-ROM’s unterschieden. Ein Vorder- 
grund-ROM { wie z.B.das Basic-ROM ) übernimmt nach dem Einschalten des 
Rechners sofort die Kontrolle über diesen. Hintergrund-ROM’s i z.B. 
Floppy-ROM ) dagegen sind harmloser, sie stellen nur diverse Anwen- 
der-Routinen zur Verfügung, nachdem sie einmal initialsiert wurden 


{Geschieht automatisch beim Einschalten.). Da die ROM’s ja irgenwie 
unterscheidbar sein müssen -sie teilen sich ja alle den gleichen 
Adressbereich-, bekommen sie alle eine zusätzliche Nummer. 


Für Hintergrund-ROM’s können die Nummern 2-7 verwendet werden, es 
können damit also bis zu acht Hintergrund-ROM’s gleichzeitig am System 
"hängen". Die Vordergrund-ROM’s können von 8-252 durchnumeriert sein, 
also wesentlich mehr ! Aber seien wir doch ehrlich, wer will oder muß 
schon soviele ROM’s gleichzeitig im Zugriff haben. Die Hinter- 
grund-ROM’s sind in den meisten Fällen sowieso die interessanteren und 
tlexibelsten, was die Verwendung betrifft. 

Bevor wir nun zur hardwareseitigen Lösung des Umschaltens kommen, 
möchte ich noch kurz den "Kopf" eines Hintergrund-ROM’s besprechen. Er 
kann wie folgt aussehen : 
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ORG #C098 


DEFB 1 }Hintergrund-ROM Kennzeichen 
DEFB 2,2,9 ;#für Versionsnummern etc. 
Detw Namen }ähnlicher Aufbau wie 
JP Routinei 3RAM-RSX. Siehe Basicerweiterung. 
JP Routine2 
Namen: DEFM "NAME", "1"+#88 
DEFM "NAME", "2"+#88 
DEFB 8 ; Ende-Kennzeichen Tabelle 


Noch nicht berücksichtigt ist bis jetzt die eigentliche ROM-Nummer, 
welche immer das von Ihnen gewählte ROM aktiviert. Dies ist aber die 
Aufgabe der Hardware, welche ich nun anhand eines Schaltplanes 
vorstellen will. Die eingestellte ROM-Nummer, gleichbedeutend mit 
ROM-Select-Byte, ist in diesem Beispiel festverdrahtet auf ?. 


-Enable = CS für alle ROM’s 


1772 ÖE entsprechendes ROM 


1N4148 


®/a 74 LS 94 
=/2 74 LS 988 
®"/a 74 LS 398 


Datenbus mit 7 
als eingestellter 
ROM-Nummer. 


Bei einem I/O-Schreibzugriff mit AlS = "8" wird der Clockinput des 
Flip-Flops getriggert. Zu diesem Zeitpunkt wird dann das auf "wahr=1" 
und "unwahr=8" mit dem 8-#ach-(N)AND reduzierte Datenwort eingelesen. 
Sollte das entsprechende ROM eingeschaltet werden, erscheint nun am 
@-Ausgang des FF’s eine "1". Diese "1" wird mit AiS5 verknüpft -es soll 
ja nur bei einem Zugriff auf das obere ROM das Basic-ROM ausgeblendet 
werden !- und gibt dann den OE-Eingang (ODutput-Enable) des externen 
ROM’s frei. Gleichzeitig wird durch eine weitere Invertierung eine "1" 
als ROMDIS-Signal an’s interne Basic-ROM gesendet und dieses 
ausgeblendet. 


196 


Mit einer entsprechenden Inverterkonfiguration an den Eingängen des 
8-fach-NAND’s kann ein ROM-Select-Byte von 8 bis 7 [0 für Hinter- 
grund-ROM’s ) eingestellt werden, wobei ein eventuelles Floppy-ROM die 
Nummer 7 hat. 


24-Bit-I/O-Port 


Die Voraussetzung, um den CPC auch als Steuergerät +ür diverse 
Erweiterungen einsetzen zu können, ist ein User-Port. 

Der hier verwendete 8255 stammt zwar noch aus der 8989-Aära, aber er 
hat so manche Vorzüge gegenüber der Z889-PIO, wenn der vektorisierte 
Interrupt nicht gebraucht wird. Sein Merkmal ist vor allem der 24 Bit 
breite Ein-/Ausgabeport und die leichtere Programmierung. 


Das IC kann in drei verschiedenen Modi betrieben werden. 


Mode 2: 
Port A arbeitet dabei birektional und 5 Bits des C-Ports dienen jetzt 
als Handshakesignale. 

Mode 1: 
Den Ports A und B werden jeweils 4 Bit des C-Ports als Hand- 
shakesignale zur Verfügung gestellt. Die beiden Ports A und B können 
jeweils als Ein- und Ausgänge betrieben werden. 


Die bei einfachen Anwendungen am meisten verwendete Betriebsart ist 
Mode 9. Da er ausschließlich bei den in diesem Buch gezeigten 
Anwendungen verwendet wird, gehe ich näher darauf ein. Wenn Sie sich 
jedoch eingehender mit den anderen Moden auseinandersetzen wollen, 
emptehle ich Ihnen entweder das entsprechende Datenblatt oder die im 
Anhang vorgestellte Literatur. 
Mode 9: 

Dabei stellt der A- und B-Port je einen 8-Bit breiten Port dar, der 
C-Port kann in zwei Gruppen zu je 4 Bit’s aufgeteilt werden. Die 
Datenrichtung des A- und B-Ports und der zwei Gruppen des C-Ports kann 
dabei jeweils getrennt festgelegt werden. 


Der dabei als Statuswort auszugebende Wert ist wie folgt: 
Statuswort <>Port!: A B c c 


dez: hex! bin: Bit: 9-7 2-7 4-7 8-3 


128 89 12009908 out out out out 
129 ei 12029991 out out out in 
139 82 10209919 out in out out 
131 83 19009911 out in out in 
136 88 102010989 out out in out 
137 89 19901081 out out in in 
138 8A 192219198 out in in out 
139 8B 122291011 out in in in 
144 98 19010090 in out out out 
145 9 19010091 in out out in 
146 92 19019919 in in out out 
147 93 19919911 in in out in 
152 98 19911999 in out in out 
153 99 12211091 in out in in 
154 9A 19911919 in in in out 
155 9B 12@11@11 in in in in 
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Wie aus der Tabelle zu ersehen ist, schaltet z.B.der Befehl: 
OUT &FBFI,128 


alle Ports auf Ausgabe, und genau so einfach lassen sich auch alle an- 
deren Kombinationen einstellen. 

Automatisch wird dabei auch der Mode 8 programmiert. Die Datenbits D2, 
DS und D6, die dabei alle auf "9" gesetzt sind, sind dafür verant- 
wortlich. 

Eine andere Variante, Einfluß auf die Ausgabebits des C-Ports zu 
nehmen, ist das Einzelbit zu setzen oder zu löschen. Aber wie gesagt, 
diese Möglichkeit besteht nur für Port C. 


Das als Statuswort auszugebende Byte kann dann folgende Formen 
annehmen! 


Bitnr.: 8 2 Bit löschen 
1 = Bit setzen 


765432198 -- Tabelle zur Bitauswahl -- 
SeE=ESssäns nen t Es kann also immer nur 


? 1 121291981989 ein Bit gleichzeitig beein- 
“ 2 118821198 flußt werden.) 

” 3 111129299 

* 4 x 

x 5 x 

” 6 x 

” 7? 8 = Marke für Bit Set/Reset Mode. 


Der 
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Schaltverstärker 


Die Belastungsfähigkeit der Ausgänge reicht für einen! TTL-Eingang 
aus, was ca. 1,6 mA im Lowzustand entspricht. Wird mehr Strom ge- 
tordert, so müssen Ausgangsverstärker verwendet werden. 


Bis ca. 46 mA (low) und bei 5 V reicht ein TTL- Bustreiber der Sorte 
LS 248 (Inverter) oder LS 241 aus. 

Bis ca. 489 mA und bis zu einer maximalen Lastkreisspannung von 38 V 
ist das TTL-IC 74856 mit offenem Kollektor verwendbar. 


Bis ca. 508 mA und 59 V! ( Gesamtverlustleistung des IC’s beachten ') 
im Lastkreis kann man den IC ULN 2994 ( =L284) verwenden. Dieses IC 
verfügt an jedem Ausgang über eine Freilaufdiode und ist somit sehr 
geeignet zur Ansteuerung von Relais. 


Bei Lasten darüber hinaus und induktiven Verbrauchern t Motore und 
starke Relais !) sollte man -um unerwünschte Masseverkopplungen 
(Schaltspitzen !) zu vermeiden- zu einem Optokoppler mit Schalt- 


verstärker greifen. 


E27 2 2 2 2 2 2 22 2 202 21212 2 2722 2 272 2 2 2122 2 22 2 2.2 212 2 2 212 2 22722 2 2722 2 2722 2.2 222 2 7 
Zur Ansteuerung eines 222 V Kreises ist ein Optokoppler 
unerläßlich !! Da Isolierung das halbe Leben ist, sollte man 
im Umgang mit der Netzspannung große Vorsicht walten lassen, 
lieber etwas zuviel als gar keine !! 
Weshalb ich auch ein fertiges Opto-Relais im anschließenden 
Vorschlag verwende. 
En 5 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 202 


Aber auch Port-Eingänge stellen eine Schnittstelle zur Aussenwelt dar. 
Wenn die ansteuernde Schaltung nicht ebenfalls eine TTL-Logik besitzt, 
sollte man zumindest mit einer Zenerdiode plus Strombegrenzungswider- 
stand oder gleich ebenfalls mit einem Optokoppler arbeiten. Schmitt- 
trigger verbessern dabei die Flankensteilheit. 


Es folgen einige kleine Schaltbeispiele zu diesen Thema: 


Typische Relaisansteuerung: 


Optokoppler- oder 
LED- Ansteuerung: 


4/2 7486 


-—=--|-- ----- 1 


*/> ULN 2084 ( L 294 ) 
Alle Ausgänge mit Freilaufdiode. 
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O 
<30V 
max. 38 V Betriebsspannung 
wegen verwendeten Optokoppler. 


t Bei anderen Spannungen evtl. 
mit den R’s experimentieren.) 


i N 4148 


Schaltverstärker 
+ür 5989 mA Last 


für 1.5 A Last 


1/a IL® 74 (0.ä&.) 


£ 
= 0] 
- ı 
B . » 
E} sn 
Ri “nn 
[e] Fa 
[23 
r > 
N .n 
u 
a 2ı 
= 2 N 3955 == 
= 
“ 
SOLID - STATE - RELAIS 
(Optoelektronisches 
SV 8 V Verb h Lastrelais m. Null- 
22 @TDFSUCher durchgangsschalter) 
a Input:3-39V} 3@mA 
48.2996 20V Strombegrenzt ! 


Qutp.:24-28@V52.5A 
Rim-Best.-Nr.:32-36-388 
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SV FV 


Vorschläge zur e 
Eingangsbeschaltung. 8 
a 7 T 
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Schmittrigger aus den 
TTL od. CMOS-Familien. 


Schmittrigger mit 
kleiner Hysterese 
(max. 199 mV) für 
sehr genaue Um- 
schaltpunkte. 


2# RC 397 (0.4.) 5% 


ı N 4148 


Hardware-Tiner 


Wenn man mit einem Computer Zeiten in den Griff bekommen will, wird’s 
kritisch. Solche kitzligen Angelegenheiten solit man lieber einem 
eigens dafür geschaffenen Baustein übertragen, der unabhängig von der 
CPU und ihrem zeitlichen Verhalten ist. Sollten Sie mal in die 
Verlegenheit kommen und schnell mal einen Frequenzzähler oder einen 
Impulsgenerator brauchen, dann ist der beschriebene IC genau richtig. 


Als Zeitgeber wird der 68253 eingesetzt. Dieses IC hat drei ver- 
schiedene 164-Bit Abwärtszähler, die in sechs unabhängigen Betriebs- 
arten arbeiten können. Es läßt Binär- und Dezimal- Zählung zu, ver- 
kraftet allerdings am Clockeingang nur 2 Mhz, was aber in den mei 
Fällen ausreicht. 


Die verschiedenen Betriebsarten: 
Mode 9: Ausgang = "1" nach letztem Taktimpuls. 


Der Zähler zählt sofort nach Erhalt eines Startwertes abwärts, mit der 
am Eingang anliegenden Taktrate. Während des Zählens ist der Ausgang 
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"3" um bei Erreichen des Zählerstandes Null wieder auf "1" zu gehen. 
Dieser Pegel bleibt bis zu einem erneuten Laden des Zählregister 
erhalten. Sobald das Gate des Zählers "8" wird, stoppt der Zähler. Der 
Vorgang wiederholt sich nicht automatisch. 


Der Aufbau des Steuerwortes: 


Bit-Nr. 


ö=Binär bis 216 
i=Dezimal b.19”4 


Zähler zwischenspeichern damit 
die CPU ohne Fehler gleich an- 
schließend lesen kann. 

= Read/Write des High-Byte 
Read/Write des Low-Byte 

= Read/Write beider Bytes,zuerst 
das Low-Byte. 


- 
„ar 
D) 


Zähler 9 
zähler 1 
zähler 2 
ungültig 


2 = 
E] i= 
1 g = 
1 i= 


Mode 1: Monoflop 


Bei einer ansteigenden Taktflanke am Gate eines Zählers wird der 
Zählvorgang ausgelöst, der Ausgang wird solange "8", bis der Zähler 
Null erreicht hat, um dann wieder in den Ruhezustand (= *"1") über- 
zugehen. Eine weitere Schaltflanke am Gate triggert den Zähler erneut. 
Der Vorgang wiederholt sich nicht automatisch. 


Mode 2: Asymetrischer Teiler durch N ( Generator ). 

Der Zähler teilt das angelegte Taktsignal fortlaufend durch seinen 
programmierten Wert. Eine negative Flanke am Gate stoppt sein 
Arbeiten, und eine positive Flanke startet den Vorgang erneut. Der 
übermittelte Startwert wird ERST NACH DER ERSTEN POSITIVEN TAKTFLANKE 
am Clock-Eigang wirklich geladen. 

Mode 3: Symetrischer Teiler durch N ( Generator ). 


Wie Mode 2 nur daß der Ausgangsimpuls genausolange low wie high ist. 
Die Zählkonstante muß dabei durch zwei teilbar sein. 
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Mode_ 4: Sottware erzeugter Impuls. 

Nach dem Erhalt der Registerwerte startet der Zähler, um nach seinem 
Ablauf einen kurzen Lowimpuls auszugeben. Logisch "®* unterbricht den 
Vorgang. Keine automatische Wiederholung. 

Mode 5: Hardware erzeugter Impuls. 

Wie Mode 4, nur daß jetzt der Zähler durch eine positive Schaltflanke 


ausgelöst wird. Eine neue Flanke vor Ablauf der Verzügerungszeit 
startet den Vorgang erneut. 


Zähler 2 Zähler 1 pa) 


o 
c 
’ 


Frequenzzähler 


Als Schmankerl und als Beispiel, wie die verschiedenen Betriebsarten 
des 8253 verknüpft werden können, gleich eine praktische Anwendung. 
Außerdem können Sie sich noch einige Scheinchen für einen "echten" 
Zähler sparen ! 


Errinnern wir uns, wie ein Frequenzähler arbeitet: Da ist zuerst 
einmal die allgegenwärtige Zeitbasis für die internen Abläufe und vor 
allem für die Torzeit. Diese Torzeit läßt nur z.B. eine Sekunde lang 
Impulse an einen Zähler durch. Der Inhalt des Zählers ist dann nach 
Ablauf der Torzeit direkt ein Maß für die angelegte Frequenz, nach der 
höchst-mathematischen Gleichung 2828 Impulse ist 28828 Hertz. 


Da unser Zähler nur bis maximal 65535 zählen kann, ist dafür Sorge zu 
tragen, daß kein Überlauf entsteht oder -was noch viel besser ist- die 
einzelnen Überläufe zu sammeln. 

Einen Üüberlauf zu verhindern ist leicht, es muß nur die Torzeit ent- 
sprechend verkürzt werden, was aber die Auflösung stark beein- 
trächtigt. Die Meßgenauigkeit unserer zweiten Methode bringt dagegen 
eine Auflösung von einem Hertz bei 2 Mhz ! 
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Das "Sammeln" von Null-Durchgängen wird durch einen angehängten Soft- 
warezähler erledigt. Ein kleines Rechenexempel: 


Werden eine Million Impulse in der Sekunde gezählt, dann "passieren" 
15 Nulldurchgänge und es wird ein Rest von 16968 gebildet, da sich ein 
Megahertz nicht durch 65536 ohne Rest teilen läßt. Das Programm muß 
nun die Nulldurchgänge wieder mit 65536 multiplizieren und den Rest 
dazuzählen, um auf unsere gemessene Frequenz von 1 Mhz zu kommen. 


So weit, so gut - ein Häkchen ist noch bei der Geschichte. Die Zähler 
des 8253 arbeiten decrementierend, also anders herum. Das läßt sich 
aber leicht ausgleichen durch eine Subtraktion des Restes von dem 
Maximalwert. Um bei unserem Beispiel zu bleiben, der Rest von 19458 
stellt sich im Zähler mit 458864 dar. Nach der Rechnung 65536-459886 
haben wir wieder unseren richtigen Wert. 

Noch eine Besonderheit des Programms ist das Registrieren der 
durchgänge, was aber im Prinzip ganz einfach ist. Wenn der eingel 
Zählerstand größer als der vorige Wert ist, hat ein üÜberlauf statt- 
gefunden. Einfach, nicht ? 


Zuerst das Schaltbild der "Außenwelt" des 8253. Wie Sie sehen, besteht 
das ganze Gerät außer einem Inverter und einem Teiler-Flip-Flop nur 
aus Drahtbrücken. Wenn Sie wollen, können Sie die Schaltung noch mit 
einen Vorteiler:i® erweitern. 


Port-cCc 9255 


2/a LS 74 
Teiler:2 


s255 


max. 2 Mhz 


max. 28 Mhz 


Vorteiler:1@ 
(wenn nötig) 


Dann das Programm: ( Es muß ja nicht immer Maschinensprache sein ! ) 
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198 
118 
120 
139 
148 
159 
168 
178 
189 
198 
209 
210 
228 
239 
248 
259 
269 
278 
289 
299 
398 
318 
328 
339 
348 
359 
368 
379 
389 
398 
498 
418 
428 
438 
448 
458 
468 
478 
488 
498 
EZ, 
sıo 
20 
ERT) 
49 
ssg 
LT 
78 
ssg 
= 
698 
618 
628 
639 
648 
659 
668 
678 


RRRRHHHAIRHAHIAIHIRIHIHHIHIHIHIHHHNH 
’+ Frequenzzaehler * 
E32 2 2 2 5 2 & 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2.207 
cLS$s 


’PIO 8255 initialisieren 


’Die drei Zaehler des 8253 

’mit dem Mode versorgen. 

’(Die Daten duerfen spaeter tolgen!) 
’Zaehler 8 und 2: Mode 2 

’Zaehler i : Mode i 

» 

OUT &FBF?,&X119198 

OUT &F8F7,&X1112919 

OUT &FBF7,&X1Q119198 


’Die Daten: 

’Zaehler 2: Startwert bei ® (=65536) 
» 

OUT &FBF6,® 

OUT &FBF6,8 


’Zaehler 1: Startwert bei 592998 
OUT KFBFS, LSB 
OUT &FBFS,&CI 


’Zaehler 9: Startwert bei 48 
» 

OUT &FEF4,49 

OUT &F8F4,8 


’Monoflop triggern mit pos.Flanke 
OUT &FBF2,LX10009 
OUT &FBF2,8 


’Kurze Verzoegerung bis 1.Taktimpuls 
"eintrat. (Dann wird Zaehler erst geladen) 


FOR n=1 TO 9B:NEXT 


’Zaehlschleife: 1 Sekunde Highpegel am Gate 
bo von Zaehler 2. 

D 

WHILE INP (&FBF2)=9 

OUT &FEF7,&X10000908 

I1sb=INP (KF8F&)hsb=INP (KFEF6) 


’Nulldurchgang ? 
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688 IF 15b+2564%*hsb>wert THEN nulldgenulldg#i 
699 wert=1sb+256%hsb 


738 ’Nulldurchgaenge und Restinhalt von Zaehler 
748 '’auswerten. 

7598 LOCATE 1,1 

768 PRINT 65536%(nulldg-1)+(645536-wert) 

778 wert=8:nulldg=9 

789 GOTO 169 


Eine zeitkritische Anmerkung zur Software; 
Zuerst ein paar Feststellungen: 


Durchlaufzeit der FOR-NEXT Schleife: 12@ ms. 

Durchlaufzeit der WHILE-WEND Schleife: 16 ms. 

Schaltflanke bei 18 Hz-Signal spätestens nach 129 ms. 

Bei 2 Mhz-Signal findet alle 32 ms ein Üüberlauf statt und bei 58089 khz 
alle 1389 ms. 


In diesem Zusammenhang will ich auch das Vorhandensein der FOR-NEXT- 
Schleife erklären. 

Da bei einer kleinen Eingangsfrequenz von z.B. 1i® Hz, wie gesagt, die 
positive Flanke erst nach ca. 128ms auftreten kann, und damit erst der 
Startwert des Zählers geladen wird (siehe Erklärung von Mode 2), wird 
dieses Laden, durch das selbst in Basic wesentlich schnellere Abfragen 
als Nulldurchgang interpretiert, was aber absolut nicht stimmt. 


Deshalb die Verzögerung von 128 ms. 


Diese Schleife muß aber bei Frequenzen größer als 5289 khz inaktiviert 
werden, um den ersten Nulldurchgang dieser höheren Meßfrequenz nicht 
zu verpassen ( bei 2 Mhz immerhin alle 32 ms !). 

Frequenzen unter 19 Hz sollten ohnehin über den Umweg der Perioden- 
dauer gemessen werden, um eine höhere Auflösung zu erreichen. 


Und zum Abschluß deshalb gleich eine Anregung: 


Einem Ausbau der Hard- und Software des Frequenzzählers zu einem 
Impuls/Pausen-, Perioden- und Drehzahlmessers steht eigentlich nichts 
im Wege, finden Sie nicht auch ? 


Einfache synchrone serielle Schnittstelle 


Wenn Sie z.B., wie ich, ein Ein-Platinen-Computerchen zusammen- 
gezimmert und ihm ein mehr oder weniger komfortables Monitorprogramm 
gespendet haben, dann kommt bestimmt einmal der Zeitpunkt, wo Sie 
Daten von und zu diesem Computer-Ableger übertragen wollen. 

Sei es nun weil Sie Ihren Schneider CPC als komfortables Entwicklungs- 
system einsetzen, oder weil Ihr Zweiter? als Meßwerterfassungssystem 
arbeitet. 

Eine V24 (oder RS 232c) ist hier aber tehl am Platz, erstens weil 
diese Hardware zu umfangreich und zweitens die Programmierung der 
"großen Schwester" ein Kapitel für sich ist, nicht nur in diesem Buch. 
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Ohne großen Aufwand an Hard- und Software läßt sich aber eine serielle 
synchrone (weil vom selben Takt abhängig.) Schnittstelle am Centro- 
nics-Port des Schneiders simulieren. 


Die dabei nötigen zusätzlichen Teile zeigt folgendes Schaltbild der 
Schnittstelle. EPC soll im Folgenden die Abkürzung für Ein-Platinen- 
Computer sein. 


EPC-Seite: CPC-Seite: 
Port A: Centronics-Port:! 


Ag tout) tin) Busy 


SN 7496 


AS (in) 


Das Taktsignal teilt dem EPC mit, wann er ein Datenbit zu senden hat, 
bzw. wann das Datenbit stabil anliegt, wenn der CPC sendet. 


Der Schneider stellt bei dieser Anordnung und durch die anschließende 
Software, den höherwertigen Rechner, also einen Hostrechner dar. Der 
diesem Rechner folgende Computer ist damit zu einem Download-Rechner 
degradiert. Diese Rangfolge muß sein, um eindeutige Zustände auf der 
Schnittstelle zu schaffen. 


Selbstverständlich müssen vorher beide Computer in den entsprechenden 
Modus gebracht werden, also EPC empfängt und CPC sendet oder 
umgekehrt, dazu ist es am Besten wenn der EPC, bevor der Schneider mit 
seinem Taktsignal die Schnittstelle aktiviert, in den entsprechenden 
Modus gebracht wird. 

Nur so ist es möglich das keine Daten verloren gehen. 


Folgendes Bild soll das Zeitverhalten verdeutlichen: 


CPC sendet ein Bit: 


EPC Lesen aktiv: 


Data: 


Takt: 
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CPC wartet auf ein Bit: 


CPC Lesen aktiv: 1 
[J 

Data: 1 

2 

Takt: 1 


LJ | 1 


Mit dem folgenden Basic-Programm konnten auf Anhieb Daten fehlerfrei 
übermittelt werden. 


So arbeitet das Programm: 

Zuerst erwartet es die Zahlen 189-2 als sogenannte Synchronisations- 
bytes vom EPC, dann sendet es Anfang und Länge der nun folgenden 
Daten, um dem EPC mitzuteilen wo die Daten abgelegt, bzw. welcher 
Bereich gewünscht wird. Beides geschieht sowohl beim Senden als auch 
beim Empfangen 


198 ’Kommunikationsprogramm mit 

119 'einem Einplatinencomputer 

129 ’ oder aehnlichem. 

1395 ’'„==merz2zezezczzzgummzzumsmem 

148 port=kEF@B: busy=&F598 

159 MODE 2 

168% INPUT *S)enden oder E)mpfangen"Ji® 

178 IF i®<)"”s" AND i®S<C)>"e" THEN 168 

189 IF i$="s" THEN GOSUB 319 ELSE GOSUB 698 

198 PRINT:GOTO 168 

298 ’ 

218 ’Byte -a- ausgeben 

228 as=BINS(a,8) 

238 FOR n=1 TO 8 

249 obyte=® 

258 IF MID®S(a®,n,i)="1" THEN obyte=i 

268 OUT (port),obyte:OUT (port),obyte OR 2:0UT (port),obyte 
278 NEXT n 

288 RETURN 

299 ’ 

3920 ’Byte -a- empfangen 

318 29=2"00002299" 

328 FOR n=1 TO 8 

338 OUT (port),2:a=INP (busy) AND &X1220929:0UT (port),® 
349 IF a THEN MID$(a®,n,i)="1" 

359 NEXT n 

369 a=VAL("ax"t+a8) 

379 RETURN 

388 ’ 

398 ’Synchronisation empfangen 

498 FOR sy=18 TO 1 STEP-1 

419 GOSUB 3@9:IF a<C)sy THEN PRINT"SYNCH. ERROR "ja 
428 NEXT 

439 ’ 

448 ’Header senden (Anfang und Laenge des Programmes) 
458 anf$S=HEXS(anf,4):a=VAL("&"+RIGHTS(anfS,2)):GOSUB 218 
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469 a=VAL("&"+LEFTS(anf®,2)):00SLUB 219 

478 \ge®=HEXS(1ge,4):a=VAL("&"+RIGHTS(lge®,2)):G0OSUB 2108 
489 a=VAL("&"+LEFTS(1g9e$,2)):GOSUB 219 

498 RETURN 

s22 ’ 

518 PRINT"EPC auf Empfang stellen und Taste druecken":CALL &BBB& 
529 ant=&81989:19e=198 

539 GOSUB 398 

5489 ’Beispiel: Sende Zahlen 1-19 

558 FOR se=! TO 188 

569 a=mse:GOSUB 218 

578 NEXT 

589 RETURN 

5 ’ 

6028 PRINT"EPC auf Senden stellen und Taste druecken":CALL &BBd& 
619 anf=&8199: 19e=190 

628 GOSUB 399 

639 ’Beispiel: Empfange 1298 Zahlen 

6498 FOR em=1 TO 198 

659 GOSUB 3@@:PRINT USING "HHN "Ial 

668 NEXT 

678 RETURN 


Das auf der EPC-Seite laufende Programm soll hier ebenfalls abgedruckt 
werden, allerdings nur als reines Sourcelisting (Auszug), um damit 
zu verdeutlichen, daß dieses Programm etwas von den jeweiligen Gege- 
benheiten der Hardware des Einplatinen-Computers abhängt. 


18 s1d hl,textxx laedt den 

28 jAnfang eines Textes und 

39 irst string druckt ihn aus. 
43 jBeide Routinen sind System- 
58 ispezifisch. 


68 I ---------- 722222222200 
78 1Programm laden vom CPC JEINSPRUNG EMPFANGEN: 

889 load: 1d hl,textig 1Systembedingt: 

98 rst string }Text laden und auf Display bringen 
198 call header ihole Anfang u. Länge der Daten 

119 1d a,h 

128 ep 1 I-P3 sUnter 8128@hex darf nichts geladen wer- 
138 jr nc,reloop ıden, wegen Stack u. Systemdaten !! 
149 1d h1,081908 

159 reloop: call reada }Hole Byte nach Akku. 

168 ld (hl),a iLege es am entspr. Speicherplatz ab. 
178 ine hl ıZeiger +1 

1898 dec be JLänge -1 

1928 1d a,c iPrüfe auf Ende der zu übermittelnden 
208 or b Daten. 

218 jr nz,reloop }Noch nicht zu Ende - Weiter. 

228 ret ıZum Hauptprogramm. 

238 3 j 

249 ıProgramm senden zum CPC EINSPRUNG SENDEN: 

259 send: 1d hl,text9 1Systembedingt: 

268 rst string iwie vor: 

278 call header iwie vor: 

289 seloop: Id a,(hl) ;Das zu sendende Byte nach Akku, 

298 call writea und ausgeben. 
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398 
319 
329 
338 
349 
338 
369 
379 
388 
399 
498 
4198 
428 
439 
448 
459 
468 
4798 
488 
499 
528 
318 
529 
3538 
549 
358 
568 
378 
588 
>98 
629 
618 
620 
638 
649 
658 
668 
678 
688 
698 
728 


718 
728 
738 
799 
758 
768 
778 
788 
798 
8298 
818 
829 
838 
849 
859 
868 
878 
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ine hl IZeiger +1 
dec be jLänge -i 
ld a,c 
or b iwie vor! 
jr nz,seloop 
ret 

‚ 

Header empfangen vom CPC 

jAnfang und Laenge des Programms 

header: call sync }Synchronisationsbytes senden. 
call reada 
id l,a }jHole Lowerbyte Anfang nach L-Reg. 
call reada 
ld n,a }Hole Higherbyte Anfang nach H-Reg. 
call reada 
id c,a }jHole Lowerbyte Länge nach C-Reg. 
call reada 
1d b,a iHole Higherbyte Länge nach B-Reg. 
ret 

’ 

ICPC wartet auf diese Daten um in 

Aktion zu treten. (Zahlen 19-9) 


sync: 1d b,18 
syloop: 1d a,b 
call writea 
djinz syloop 
ret 
’ 
IEPC empfaengt Byte im Akku 


reada: push bc ıBC retten. 
1d b,8 sEin Byte hat 8 Bit. 
inbyte: call clkon IWarte auf aktiven Takt von CPC. 
rlia sBitS von Input in Carry schieben, 
rla 
rla 
rı ce und Carry’s in C-Reg sammeln. 
call cikoff iWarte bis Takt inaktiv. 
djnz inbyte Wiederhole bis alle Bits in C-Reg. 
1d a,c ıByte soll ja im Akku sein. 
pop bc 3BC zurück und fertig. 
ret 
1) 
IEPC sendet Byte im Akku 
writea: push bc ;BC retten 
id c,a }Sendebyte nach C weil Akku gebr.wird. 
1d b,8 Ein Byte hat immer noch 8 Bit. 
outbyt: call cikon iWarte auf aktiven Takt von CPC. 
res 4,a Akku ist Portbyte,Bit4 löschen. 
ri € iDas aktuelle Sendebit ins Carry-Flag. 
jr ne, lowbit iWenn 8,dann sende das gelöschte Bit4. 
set 4,2 Sonst sende High-Pegel. 
lonbit: out (datia),a Gib diese Bit im Akku aus. 
call clkoff iWarte bis Takt inaktiv. 
djinz outbyt }Mache weiter bis alle Bits gesendet. 
res 4,a Gib am Schluß Ruhepegel aus. 
out (datia),a 
pop be sBC zurück und fertig. 
ret 


889 3 


899 clkon: in a,(datia) Warte auf aktives Taktsignal vom CPC. 
998 bit 6,a 

919 jr z,clkon 

9289 ret 

939 3 

948 clkoft: in a,(datia) jwarte bis Taktsignal inaktiv,also ®. 
959 bit 6,a 

968 jr nz,clkotf 

978 ret 


v24 (RS 232) - Schnittstelle 


Um mit anderen Rechnern, Modems, Akustikkopplern oder Druckern zu 
kommunizieren, ist oft eine serielle Schnittstelle erforderlich, mit 
der Norm V-24 oder RS 232 c. Bei dieser Art von Schnittstelle folgen 
die Bits im Gänsemarsch anstatt -wie beim Centronicsport- auf einmal. 


Ein weiterer wichtiger Punkt ist, daß Daten in beide Richtungen über- 
tragen werden können (Vollduplex) bei Modems etc. oder auch nur in 
einer Richtung z.B. bei Druckern (Halbduplex). 


Da dabei nur wenige Leitungen ( Leitungen für Senden, Empfangen plus 
einiger Handshakeverbindungen, zur Absprache der beiden beteiligten 
Systeme untereinander.) erforderlich sind, eignet sich diese Schnitt- 
stelle besser als eine parallele zur Überbrückung weiterer 
Entfernungen. Weiterhin erfolgt die Übertragung, aus Gründen der 
Datensicherheit ( Leitungswiderstand, Einstreuungen ), mit einen 
höheren Spannungspegel als 5 Volt, in der Regei +-9 bis +-12 Volt. 


Man könnte nun die einzelnen zu sendenden Bits über einen normalen 
Port, wie vorher, seriell ausgeben, da es aber speziell für diese 
Normschnittstelle eigene IC’s gibt, wollen wir mit so einem arbeiten. 


Deshalb wird auch die eigentliche Arbeit, das Senden und Empfangen von 
Datenwörtern, das Reagieren auf Handshakesignale etc, von einem extra 
dafür geschaffenen Z-88 Baustein erledigt. Dieser Baustein enthält 
sowohl die Taktgeber für die Baudrate ( Bit/Sekunde ) der Daten- 
übermittlung, die Sende- und Empfangssteuerungen als auch einen acht 
Bit breiten frei programmierbaren Port zum Bereitstellen der Hand- 
shakesignale. 


Die Wahl fiel dabei auf ein nicht ganz billiges IC, welches aber durch 
seine komfortable Programmierung und seine Kompaktheit besticht. Die 
Rede ist von dem Baustein Z88 STI, der zu Unrecht etwas unbekannt ist. 


Die Kurzdaten des IC’s: 


Baudraten einstellbar von 58 bis 1920@ Baud, 

5, %, 7 oder 8 Bit breites Datenwort, 

1, 1/2, oder 2 Stoppbits, 

gerader, ungerader oder keine Parität (Prüfbit). 
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Weitere Daten für den Programmierer: 


* 24 Register stehen dem Programmierer zur Verfügung, 
%* 16 Register sind davon direkt über die Adressen 
FS8ES - FSEF ansprechbar, 
* die restlichen acht Register sind indirekt an- 
steuerbar über ein spezielles Register der ersten 
16 Register. 


Jetzt zuerst die Bedeutung und die Adressen der einzelnen Register: 


Register 9, Fortadresse FBEB: 
Dieses Register überträgt die Daten von und zu einem angewählten indi- 
rekten Register. 


[3 FE A 
Dieses Register überträgt die Daten von und zu dem I/O-Port des Chips. 
Bei der V 24 stellt dieser Port die Handshakesignale zur Verfügung. In 
unserer Schnittstelle haben die einzelnen Bits folgende Bedeutung: 
(Bit 8 und 1 sind dabei auf Ausgabe programmiert) 


Bit ®: DTR (Data Terminal Ready) 
Bit 1: RTS (Ready to Send) 
Bit 2: CTS (Clear to Send) 
Bit 3: DSR (Data Set Ready) 
Bit 4-7: nicht verwendet 


-7 _ H 
Die Register stehen dem Interrupthandler zur Verfügung. Da diese 
Eigenschaften bei unserer Anwendung nicht genützt werden, möchte ich 
nicht näher darauf eingehen. Wer sich dennoch für diese Eigenschaften 
interessiert, empfehle ich die Datenblätter der Firma Mostek. 


Die Bits 3 - 7 stehen wieder der Interruptverwaltung zur Verfügung. 
Die Bits 8 - 2 dagegen sind wichtig, sie dienen zur Auswahl der 
indirekten Register. Der mögliche Inhalt der drei Bits (8-7) gibt dann 
die Nummer der indirekten Register an. 


Register 9, Portadresse FOEI: 

Kontrollregister für Timer A und B, sie stellen den jeweiligen 
Vorteiler sowie den Zählermodus ein. Bei der V-24 sind diese beiden 
Timer zwar nicht verwendet, sie lassen sich aber sehr wohl für andere 
externe Zwecke verwenden ( Vorteiler, Generatoren etc.). 


Bitnr.: 7 6 5 4 3 2 1 2 


Wertigkeit für Zähler A und Zähler B: 


Die möglichen Kommandos für die Zähler: 


2 82 Zähler stoppt ! 
8 1 Vorteiler /4 symetrischer Ausgangsimpuls 
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2» 198 . 118 symetrischer Ausgangsimpuls 
vaıı ” 116 ” Ge 
2198 ” 159 “ “ 

2ı a1 id 164 a u 
118 ” 1/1988 I ” 

a1 ı 1 . 12989 u * 
18988 Ereigniszähler 

1881 Vorteiler /4 asymetrischer Ausgangsimpuls 
19198 = 118 ” “ 

ı9 11 ” /16 . & 
11998 = 159 “ # 
1191 ® 164 * ” 
1119 ” 1/1988 ® ” 
ııı1 " 1298 " ” 


e 
Zähler B Wert für Hauptteiler, Teiler von /® - /255. 


Register il, Portadresse FSEB: 


Zähler A Wert für Hauptteiler, Teiler von /® - /255. 


Register e A 
USART-Register. Stellt die Üübertragungsparmeter ein wie Wortbreite, 
Synchron/Asynchron, Stoppbits, Parity ein/aus und - gerade/ungerade. 


Bitnr.: 
1 = gerade 
83 = ungerade 
i = Parity ein 
2% = Parity aus 
Startb.Stopb. Format 
2 3 synch. 
ı ı asynch. 
1 1:/2 a 
1 2 % 
1 = zusätzlicher Vorteiler /16 
83 = kein Vorteiler 
Register 13, Portadresse FBED: 


Empfänger Status. Von den 8 Bits des Datenwortes sind nur die 
folgenden wichtig. 
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Bit 9: Empfänger-Enable, muß auf "i" gesetzt sein, wenn 
Empfang erlaubt sein soll. 

Bit 1: Empfangsbuffer voll "1" oder leer "®". Der Empfang 
der eingestellten Wortbreite gilt als "Buffer voll". 


Re r P r F H 
Sende Status. Wieder sind davon nur 2 Bits für uns ausschlaggebend. 
Bit 9: Sende-Enable, muß auf "1" gesetzt sein, wenn gesendet 
werden darf. 
Bit 7: Sendebuffer voll "1" oder leer "@". Dieses Bit kann 
dazu benutzt werden, um festzustellen, ob ein Daten- 
wort schon vollständig abgeschickt wurde. 


| P : 


Das tatsächliche Sende- und Empfangsregister. Ein zu sendendes Wort 


wird hier abgelegt oder ein empfangenes abgeholt. 


Die indirekten Register ( Auszuwählen über Register 8.): 


SE2Zumzoumzzzuonnzmznmumnzegnnumnneomnngemgunmmmummzmmzmmunmmumen 
(3 r A 
Synchron-Charakter-Register. Nicht verwendet. 


Register 1: 
Timer Ds Daten #.Hauptteiler, Teiler durch ® bis 255. 


Register 2: 
Timer C: Daten #.Hauptteiler, Teiler durch ® bis 255. 
Register 3: 


Aktive Flanke eines Interrupts. Nicht verwendet. 


Register 4: 


Interruptregister B. Nicht verwendet. 


e r_ 35: 
Interruptregister A. nicht verwendet. 


Register 9: 
1/O-Port Datenrichtung. Die Bits korrespondieren dabei mit den 


Bits der selben Wertigkeit. High bedeutet Ausgang und Low steht 
Eingang. 


Register 7: 


Vorteiler Einstellung für C und D Timer und Resetsignale der Timer 


und B. Reset bei "1". 


x2 x1 x@ Bedeutung! 

298 90 Jeweiliger Timer stoppt. 

2 9 1i Vorteiler /4 t alle Synchron ! 
2 192 “ /18 

2» ı i ” 116 

1928 9 = 158 

ı 9 ı ud 164 

11098 ” 1/1988 

ı ı 1 “ 1208 
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1/0 
für 


A 


Bitnr.: 


A x2 xiı xD B x2 xi1 xa 
Reset Reset 


Zum Abschluß noch ein Beispiel zur Programmierung der richtigen 
Teilerverhältnisse für eine bestimmte Baudrate. 


IAHHHARIIHIHIHIAIHIAIIHIHIHIHHIHIHIHIHEIAIHIHIHIHRE 
* Gewünschte Baudrate: 1298 * 


* Prozessortakt : 4 Mhz %* 
Ba 2 2 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 2 22 2 2202 


Es soll Timer C verwendet werden, also hardwaremäßig den Ausgang des 
Timers C mit den Eingängen TC oder RC verbinden. Es können auch beide 
Eingänge ( TC,RC ) am gleichen Timerausgang hängen, dann sind halt 
Sende- und Empfangstakt gleich, was ja ohnehin in den meisten Fällen 
zutrifft. 


t Es wird immer die doppelte Frequenz gebraucht, da jedes 
Bit zweimal gescannt wird. In unserem Fall also 24988 Hz. ) 


Vorteiler von CI ıa : ( x@2i1xxxx ) nach Ind.Register ?. 
Nun 1 Mhz: 

Zusätzlicher Vorteiler /i6 : ( ixxxxxxx ) nach Register 12. 
Nun 02598 Hz: 


Hauptteiler Cı 126 : ( 22211818 ) nach Ind.Register 2. 


Jetzt haben wir unsere 2483 Hz zur Erzeugung der gewünschten Baudrate. 
Eine Abweichung in dieser Größenordnung (3 Hz) macht nichts aus ! 


Im Anschluß an diese typisch theoretisch-trackene Angelegenheit nun 
der Aufbau der Schnittstelle sowie deren Programmierung. 


EHHHHHHHHHRH 


Da diese Erweiterung mit Sicherheit öfter gebraucht wird, habe ich die 
Software mittels RSX-Technik in das Basic des Rechners eingebunden. 


Es stehen deshalb drei neue Basic-Betehle zur Verfügung: 


IFORMAT, Nr.d. Baudrate, Anz.Stoppbits, Wortbreite, Parity ein/aus, 
Parity gerade/ungerade 


125 


Möglichk [1 [1 [4 i 


Parity: 1 = gerade 
$ = ungerade 


Parity: i = Parity an 
3 = Parity aus 


Stoppbits! 1 = 1 Stoppbit 
2 = 2 Stoppbit 


7 Datenbit 
Datenbits 


Wortbreite: 


-® 
“u 
o 


58 Baud 
75 Baud 
11@ Baud 
159 Baud 
398 Baud 
6229 Baud 
12299 Baud 
2498 baud 


Baudratennummer: 


NeuBun"-r® 
LEE BE Bu BE Bu Bu vu} 


IRECORD, @as 


Die ankommenden Zeichen werden in einen von Basic bereitgestellten 
String eingelesen. Es wird solange eingelesen, bis der String voll 
ist, BREAK gedrückt wird oder ein CR ( Chr$ (13)) erkannt wird. Diese 
CR’s und alle sonstigen (Steuer-)Zeichen werden ebenfalls in den 
String gepackt, um die Übermittlung von Binärtiles zuzulassen. 


ISEND, @a8® 


Der String wird bis zum Ende gesendet, außer es wurde BREAK gedrückt; 
es wird am Schluß nicht automatisch ein CR oder LF angehängt, um auch 
hier wieder die Sendedaten nicht zu verfälschen. 


Das Basicprogramm verdeutlicht die Zusammenhänge und stellt 
gleichzeitig eine einfache Bedienung der V-24 dar. 


1298 ’V-24 Treiberprogramm 249 '----------... 
119 ’Initialisieren 258 ’Empfangsschleife 
128. 73H ar aansanenen 268 "----ninnnnnnnnnnn 
138 MEMORY 48999 279 as=" " 

148 LOAD"v24.bin",419099 289 !RECORD,@a$ 

152 CALL 41099 298 PRINT a$}:G0TO 288 
168, ">55 329 

178 ’ 2490 Baud 319 ’--------- 

189 ’ 1 Stoppbit 3289 ’Sendeteil 

1928 ’° 8-Bit-Wortbreite 338 "=--=--nnnn 

289 ’ kein Parity-Check 349 a$="Sendetext” 
219 ’ 359 !SEND, @a$ 

228 !FORMAT,7,1,8,2,8 

239 ’ 
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Die RSX-Erweiterung besteht nun in der Hauptsache aus einer Empfangs- 
und Sendeschleife und der Aufbereitung des Formates. 


Pass I errors: 


A228 
AB28 
ABZB 
AQZE 


ADS 
AQSS 
AQS6 
AgSF 


ABSC 
Agal 
Aga2 
A845 
Ag46 
AB4B 
ABaC 


ABSD 
AgS2 
ABSS 
A256 
AQSS 
ADSA 
ABSC 


AgSD 
ABER 
AB62 
A264 
AB66 


AB6? 
ABA 
AB6C 
ABS6E 


A2?7B 
AB73 
A875 
A877 
A979 
AB7B 
ABT7E 


ABO 
AB82 


B131AB 
Z14CAQ 
C3D1BC 


SCAgB 

C3I5QAR 
C3D?7Ag 
C3EAAB 


464F524D 
Da 
53454E 
c4 
5245434F 
c4 


FEBS 
cg 
DD7EBL 
E621 
cB2? 
CBFF 
47 


DD7ES2 
E61 
CB27? 
CB27? 
Bo 


DD4694 
CB48 
2892 
CBEF 


DD4696 
CB48 
20992 
CBE? 
CBDF 
SI1ECFS 
ED?9 


BEES 
3Eß6 


19 

28 

3 

498 

59 

68 

79 

89 

99 
109 
119 
129 
138 
149 
158 
169 
179 
189 
190 
299 
219 
229 
238 
249 
259 
268 
279 
289 
299 
329 
318 
328 
338 
349 
358 
369 
379 
389 
398 
490 
410 
428 
438 
449 
459 
469 
479 
489 
498 
522 
s19 
529 
539 


;5V-24 mit neuen Basic-Betfehlen 
jeinschleifen 


org 41999 

ld be,jump 
ld hl,memory 
ip Rbedi 


jump: defw namen 
jp format 
ip senden 
ip empfgn 


namen: detm "FORMA” 
defb "T"@#89 
detm "SEN" 
defb "D"@#89 
defm "RECOR" 
defb "D"@#89 


sbaud,stopbits,wortlaenge,etc. 
einstellen. 


format: cp 5 35 Argumente ? 
ret nz 
id a, (ix+9) Parameter gerade/un- 
and %222922891 jgerade nach Akku holen 
sla a ıBit-3 ausblenden und 
set 7,a Jlinksschieben 
ld b,a sBit 7 immer i 

1) sBit 8 immer 2 


ld a,tix+2) Parameter Parity ein/ 
and %20209991 jaus holen, Bit-® ausbld. 


sla a 72mal linksschieben und 
sla a imit B oderieren 
or b st Im Akku wird Formatbyte 
1} zusammengestellt ! 
ld b,(ix+4) iWortbreite 7/8 Bit nach 
bit 9,b »B holen, nur Bit-® davon 
ir z,noset itesten und Bit 5 im Akku 
set 5,a sin Abhängigkeit davon 
[1 isetzen oder nicht. 
noset: Id b, (ix+6) ıStoppbit-Byte holen,auf 
bit 2,b ;i1 oder 2 testen und in 
jr nz,stopi }jAbhängigkeit davon 
set 4,a »Bit 4 und/oder Bit 3 im 
stopl: set J,a Akku setzen. 
1d be,##8ec 
out (c),a }fertiges Format-Byte nach 
, SUSART-Contr.Reg. ausgeben. 
id c,#e8 
1d a,6 ;jIndirekt-Reg 4 wählen. 
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AgB4 
ABS& 
ASS 
ABBA 
ABSC 
ABSD 
AgaF 


ABFi 
A274 
AB9S 
ADF& 
ABFEB 
ABFB 
ABFC 
AS9FD 
AQFF 
ABAg 
ABA2 
ABA 
ABA& 
ABAS 
ABAF 
ABAA 
ABAC 
ABAE 
AgBO 
ABBZ 
ABBS 
ABB4 
ABS 
ABB? 
AQBF 
ASBB 
ASBD 
ABBF 
ADC 
ASCI 
ABCA 
ABCE 


ABC? 
ABCH 
ABCB 
ABCD 
ABSCF 
ADD 
ADS 
ADS 


AD? 
ABDA 
ABDB 
ABDC 
ABDD 
AED 
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ED?9 
BEES 
3E23 
ED?9 
Le} 

SEB1 
ED?9 


DD7EYS 
87 
sFr 
1698 
21C7AB 
19 
7E 
QEEB 
c5 
1E91 
EDS? 
SEES 
ED?9 
ci 
c5 
1E92 
EDS9 
BEES 
ED77 
ci 
23 
7E 
1E97 
EDS9 
BEEB 
ED77 
QEED 
1EB1 
EDS? 
2C 
EDS9 
c9 


2753 
1A55 
4733 
3433 
1A33 
3411 
1A1l 
geil 


CDODA1 
7E 
23 
c5 
CDODAI 
ci 


549 
s52 
569 
379 
589 
599 
698 
619 
629 
638 
648 
659 
668 
678 
689 
698 
798 
719 
728 
739 
748 
758 
768 
778 
788 
798 
899 
818 
828 
8398 
849 
859 
868 
879 
889 
899 
9239 
919 
928 
932 
949 
952 
969 
978 
9789 
9979 
1998 
1919 
1929 


1939 
1949 
1959 
1969 
1979 
1989 
1999 
1199 
1119 


tabell: 


senden: 
sloop: 


aut (c),a 
ld c,#ed 
1d a,3 
out (c),a 
ine c 

id a,i 
out (c),a 


id a,tix+8) 


add a,a 
id e,a 
1d d,® 
1d hl,tabel) 
add hi,de 
1d a,(hl) 
1d c,#e8 
push bc 

1d e,i 
out (c),e 
1d c,t#te® 
out (c),a 
pop be 
push bc 

1d e,2 
out (c),e 
1d c,#e 
out (c),a 
pop bc 
ine hl 

1d a,(thl) 
1d e,7? 
out (c),e 
ld c,#ed 
out (c),a 
ld c,#ted 
1d e,i 
out (c),e 
inc c 

out (c),e 
ret 


detfb #27,#55 
defb #1a,#55 
defb #47,#33 
detb #34,#33 
defb #1a,#33 
detb #34, #11 
defb #Hla,#i11 
detb #9e,#11 


s1/O-Port Bit 9 und I 
;sind Ausgabeleitungen. 


über General-Purp.-Reg. 
;DTR sperren. 


Nummer d. Baudrate holen. 
ı1%2 w.Tabelle 2-Byte Werte 
Ibeinhaltet.Diesen Offset 
Inach DE-Reg. 
1Tabellenbasisadr.bestim. 
JplIuUS Urtser 

Akku mit 1.Byte laden 
}BC= Pointer/Vektor-Reg. 


sIndirekt-Reg.i wählen. 
Akku nach Ind.-Data-Reg. 


;5BC holen und wieder 
szurück. 
sIndirekt-Reg.2 wählen. 


JAkku auch hier ausgeben. 
IBC letztesmal holen. 

IHL zeigt auf n. Byte. 
Akku mit 2.Byte laden 
}Indirekt-Reg.?7 wählen. 


JAkku ausgeben 
JjReceiver-Status: 
Empfangen generell zu- 
jlassen ! 
}Transmitter-Statuss 
I1Senden generell zu- 
Ilassen ! 

SENDE FORMAT 

‚ 5@ versch. 

ı 75 Baud- 

s 119 raten. 
1) 

’ 


und Empfangsschleite 


call para 
1d a,(hl) 
ine hl 
push bc 
call send 
pop bc 


String aufbereiten. 
Ii1.Zeichen nach Akku 
ıB-Reg ist Zähler. 


jalle Zeichen aus String 
ausgeben oder nach 


ABEI 
ADEAS 
ABES 
ABE?7 
ABEI 


ABEA 
ADED 
ABEE 
ABFI 
ABF2 
ABFS 
ABF4 
ABF& 
ABF? 
ABFA 
ABFC 
ABFD 
ABFF 


ADS 
A193 
A1B& 
A197 
ABS 
A197 
ABA 
A1OB 
A1SC 


A1LSD 
ALDE 
All 
Al1S 
A115 
Ali? 
A119 
A1l1B 
Al1D 
ALIF 
A12g 
A122 
A124 


A125 
A128 
A129 
A1ZB 
ALZD 
ALZF 
A1S1 
A133 
ASS 
A137 
A139 
A1SB 
AISD 


Pass 2 errors: 


CD@9BB 
FEFC 
c8 
18F1 
c9 


CD9@A1 
cs 
cD2SAl 
ci 

77 

23 
FEBD 
c8 
CD29BB 
FEFC 
c8 
1BEE 
c9 


DD6691 
DD6E99 
46 
23 
SE 
23 
56 
EB 
c, 


FS 
Q1EEF® 
ED?8 
CB?F 
28FA 
BEE 
ED?8 
cB35? 
29FA 
Fi 
BEEF 
ED?9 
c9 


Q1EIFS 
AF 
ED?79 
2EED 
ED?8 
CB?F 
Z8FA 
SEEF 
ED?8 
BEE 
1E21 
EDS? 
c’ 


1129 
1139 
1149 
1159 
1160 
1178 
1189 
1199 
1290 
1218 
1228 
1239 
1249 
1259 
1268 
1279 
1288 
1299 
1399 
1319 
1329 
1339 
1349 
1359 
1368 
1378 
1389 
1399 
1408 
1418 
1420 
1438 
1449 
1459 
1469 
1479 
1488 
1499 
1599 
1519 
1529 
1530 
1549 
1559 
1568 
1578 
1589 
1599 
1698 
1618 
1628 
1639 
16848 
1659 
1668 
1678 
1689 


para: 


cts: 


record: 


nowort: 


#bb99 
fc 
z 


sloop 


para 
be 
record 
be 
(hl),a 
hi 

13 

z 
#bb89 
#tc 

z 
rloop 


h,tix+1) 
1, (ix+9) 
b,thl) 
hl 
e,tnı) 
hl 
d,(nDD 
de,hi 


af 

bc, #t8ee 
a,tc) 
7,8 
z,wait 
c,#ei 
a,tc) 
2,a 
nz,cts 
at 
c,Htef 
(c),a 


bc,##8ei 
a 

(c),a 
c,#ted 
a,tc) 
7,a 
z,nowort 
c,#tef 
a,tc) 
c,#ei 
e,i 
(c),e 


iBreak zurück. 


}Stringdesc.aufbereiten. 
Von nun an so viele 
IZeichen in String ein- 
Ilesen, wie dessen Länge 
Izuläßt oder CR empfangen 
Iwird. 

jAbbruch bei Break. 


}Stringparameter 
ifeststellen 


IHL=Anfang String 
IB =Länge String 


Zeichen im Akku retten. 
3BC=Adr. Sende-Status. 
IWarten bis Sendebuffer 
ileer, um ein noch 
Inichtgesendete Zeichen 
inicht zu überschreiben. 
iPrüfe I/O-Byte 

liegt "Clear to Send" 
san ? Ja,dann Akku zu- 
trück und in Data-Reg. 
izum senden ablegen. 


iBC=Adr.1/0O-Byte (Hand- 
Ijshake).--Akku löschen 
und ausgeben entspricht 
}"Data Terminal Ready” 
Empfänger Status prüfen. 
jund warten bis 7 oder 8 
sBits ankamen. 

iJetzt enthält Data-Reg. 
sdas empf.Byte.Nach A. 
Auf I/O-Byte "Data Ter- 
ijminal NOT Ready” ausge- 
iben. 
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Die Hardware selbst ist sehr einfach ins System zu integrieren, da 
kein externer Taktgenerator erforderlich ist und deshalb alles von 
einem IC erledigt wird. 


Die V-24 Treiber vom Typ SN 75189 und SN 75188 sorgen für die Entkopp- 
lung der verschiedenen Spannungen. 


25 pol.- V 24 Stecker 


a 
-] 
j +] 
£ 
“ 
61 
[} 
a 


DSR 
cTs 
RXD 
TxXD 
RTS 
DTR 


Um auch gleich einen praktische Problemlösung zu bieten, zeige ich das 
erforderliche Kabel um den SINCLAIR-SPECTRUM + Interface 1 mit dem 
SCHNEIDER CPC xxxx zu verbinden. Die Pinbezeichnungen beziehen sich 
auf der CPC-Seite auf einen 25-pol. V-24 Stecker und auf der Seite des 
SPECTRUMs auf einen 9-pol.-DIN-D-Stecker. 

Die Datenübertragung gelang zwischen beiden Geräten auf Anhieb. Wenn’s 
mal nicht funktioniert mit anderen Rechnern und Druckern, liegt’s 
entweder am Kabel ( z.B. TXD und RXD vertauscht! ) oder am 
übertragungstormat selber. Also experimentieren, denn die Norm V24 ist 
sehr,sehr dehnbar ! 

Böse Zungen behaupten, es gäbe so viele verschiedene Anschlußmöglich- 
keiten, wie der Stecker Pin’s hat. 
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Schneider -= Spectrum 
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Ein Gutes hat aber diese Norm auf alle Fälle, die Ausgänge sind kurz- 
schlußfest, so daß auch mal zwei Ausgänge gegeneinander arbeiten 
dürfen ! 


Einem Plauderstündchen diverser Computer steht nun nichts 
mehr im Wege. 


8-Kanal Amalog / Digital Wandler 


Lassen Sie doch mal Ihren Computer messen ! 

Gerade wenn Messergebnisse über einen längeren Zeitraum kontinuierlich 
erfasst und vielleicht noch grafisch ausgegeben werden sollen, ist ein 
Rechner mit Analog-Eingang sehr hilfreich. 

Da nun die digitale Welt eines Computers mit analogen Werten nichts 
anfangen kann, muß ein Umwandler die Aufbereitung solcher Signale 
übernehmen. 

Der Markt bietet nun eine ganze Reihe solcher Wandler-IC’s, die 
speziell für solche Aufgaben geschaffen wurden. Die meisten setzen 
einen analogen Eingangswert direkt auf einen 8 Bit ( oder mehr ) 
breiten Datenbus um. Es gibt aber auch einige IC’s die für andere 
Zwecke, nämlich der direkten Ansteuerung von Siebensegmentanzeigen 
ausgelegt sind. Der Vorteil ist, daß diese IC’s in den meisten Fällen 
wesentlich billiger sind als ihre Kollegen. 


Wie Sie sicherlich wissen, kann ein Datenbus von 8 Bit die Zahlen von 
8 - 255 darstellen, was auch gleichzeitig der Auflösung der meisten 
Wandler-IC’s entspricht. Nun währe ein größere Auflösung sicher 
von Vorteil, (etwa 12 Bit zum Beispiel) aber da steigt der Preis 
schnell in schwindelnde Höhen. 


Es wird folgend ein guter Kompromiss eines A/D-Wandlers mit ca. 18 Bit 
Auflösung und mit max. 96 Messungen pro Sekunde beschrieben. Dabei 
wird ein etwas unüblicher Weg beschritten, denn es wird kein IC 
verwendet das nur! mittels Computeranschluß arbeiten kann. Sondern ein 
Baustein der schon allein, mit etwas Zubehör, ein vollständiges 
3-stelliges Digitalvoltmeter bildet. 
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Die Wahl fiel auf den Schaltkreis CA 3142 E. 

Der große Unterschied nun zu den richtigen A/D-Wandlern, besteht in 
der Bereitstellung der Messergebnisse. Denn diese sind ja -wegen der 
anschließbaren Sieben-Segment-Anzeige- gemultiplext. Dies stellt sich 
in einen 4 Bit Datenausgang und den dazugehörigen drei Digittreibern 
dar. Die Digitausgänge geben nun an für welche Dezimalstelle die Daten 
anliegen. Ein Maschinenprogramm macht aber aus diesen "wilden" 
Signalen wieder stabile parallele Werte. 


Eine Applikationsschaltung zeigt den einfachen Aufbau des Instruments. 
Die drei Widerstände mit 6,8 k sind nur erforderlich wenn auf eine 
gleichzeitige Siebensegment-Ansteuerung nicht verzichtet werden soll. 
Im Musteraufbau wurde der Bausatz DVM 388 der Firma RADIO-RIM, München 
verwendet, der sich für diese Zwecke ausgezeichnet eignet. 


Für Elektronik-Fans birgt der 8-Kanal Vorsatz sicher keine 
Geheimnisse. Trotzdem eine kleine Erklärung. Bei dem IC CD 4851 sind 
nur die Eingänge A,B,C und Inhibit digital, alle anderen gehören zu 
Analog-Schaltern mit, in dieser Beschaltung, einem Eingangs- 
spannungsbereich von 2-5 Volt, der Durchlaßwiderstand ist dabei 


Kanalanzeige 
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vernachlässigbar bei dem hohen Eingangswiderstand ( ca. 122 MOhm ) des 
CA 31642. Der Eingangsspannungsbereich des CA 3162 von -979 mV bis 999 
mV ( Millivoltschritte ' ) wird hier nur im positiven Bereich 
ausgenützt, was in etwa einer Auflösung von 18 Bit gleichkommt. 


Die (Wendel-)Trimmer 1 M an den Eingängen des Analog-Schalters dienen 
der Erhöhung des Eingangsspannungsbereichs. Der 7442 stellt mit den 
LED’s eine optische Kontrolle des aktivierten Einganges dar. 


Das zugehörige Maschinen-Programm zum Auslesen: 
Um eine sichere Auslesung zu erreichen wird in der Schleife "Input” 


immer zweimal der anstehende Wert überprüft. Ist er bei zwei auf- 
einanderfolgenden Auslese-Vorgängen stabil, so kann davon ausgegan- 
gen werden, daß nicht während einer Digit-Umschaltung ausg e 
wurde. 


Ansonsten wird werden die drei Werte für Basic in drei Speicherzellen 
abgelegt. 


Pass I errors: 28 


18 3 DVM-Auslesung 
28 sin drei Speicherzellen 


SU. ar Sreaesnerense nenn 
49 3 
9C48 59 org 4929290 
9C49 B6FB 69 1d b,#f8 
9c42 BEFO 72 ld c,#+2 
893 
9Cc44 CD729C 98 hundt: call input 
9C47 CBS? 190 bit 2,a 
9C49 2BF9 118 ir nz,hundt 
9C4B CDEC9C 129 call schieb 
9CAE 32819C 139 1d (byte),a 
149 3 
9c51 CD729C 159 einer: call input 
9c54 CB47? 169 bit 9,a 
9C56 2B9F9 178 jr nz,einer 
9C58 CDSC9C 189 call schieb 
9C5B 32839C 199 1d (byte+2),a 
290 ı 
9CSE CD729C 21@ zehnr: call input 
9C61 CB4F 229 bit 1,a 
9C63 2BF9 232 Ir nz,zehnr 
9C65 CDSC9HC 249 call schieb 
9C68 32829C 259 1d (byteti1),a 
9C6B CP 268 ret 
279 ; 
9cöc IF 288 schieb: rra 
9C6D AF 299 rra 
9C6E IF 329 rra 
9Cb6F E6DF 319 and #9# 
9C71 C9 329 ret 
339 3 
9C72 ED?8 349 input: in a,tc) 
9c74 57 359 1d d,a 
9673 C5 369 push bc 
9C76 PBEBA 379 ld b,12 
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9C78 19FE 388 loop: dinz loop 


9C7A ci 399 pop be 

9C7B ED?8 499 in a,tc) 
9C7D BA 419 cp d 

IC7E 2BF2 429 jr nz,input 
988 C9 439 ret 

9C81 290999 449 byte: defb 9,9,0 


Pass 2 errors: 98 


Um Sie aber nicht mit dem Schaltplan und dem Maschinen-Programm allein 
zu’ lassen, gleich eine Anwendung die Sie auf den Geschmack bringen 
soll. 

Ein kleines (ausbaufähiges) Basic-Programm stellt eine Art Speicher- 
oszilloskop dar, freilich nur für nicht allzu schnelle Vorgänge, aber 
immerhin. 


189 ’ kleines Speicheroszilloskop 
28 ’ mit dem DVM-309 + Grafikaufbereitung 


3Q’ "Zeitbasis" = ca. 15 sec 

49 ’ .—_——— nn nn... 7. 2... 1... 7... . 
sa’ 

69 OUT (&KFSF3),152:’ 8255-Datenrichtung 
78 OUT t&FSF2),1:’ Kanal 1 waehlen 

89 CLS 

99’ 

188: 733-3 Haar a Be 


11@ ’linke und untere Bildschirmbegrenzung 
129 ’plus Zeit- und Voltteilung 

139 ’ 

148 MOVE 19,399:DRAW 18,19:DRAW 639,19 

15@ FOR n=19@9 TO 659 STEP 49 

168 PLOT n,12:DRAW n,-1® 

178 NEXT 

189 FOR n=19 TO 399 STEP 39 

198 PLOT 8,n:DRAW 19,n 


2889 NEXT 

219 ’ 

229. SE ran 
23@ ’ 628% DVM-Wert auslesen 
249 ’ 


258 GOSUB 359:PLOT 12,wert%/2.6+11 
268 FOR n%=11 TO 637 

278 GOSUB 359 

289 DRAW n%, wert%/2.6+11 

298 NEXT 

398 GOTO 398 

319 ’ 

329 Warseenmeree 

339 ’DVM einlesen 

349 ’ 

359 CALL 49998 

369 wert%=1UOGXPEEK (KICBL) +LOXPEEK (&9C82) +PEEK (KL9ICBS) 
378 RETURN 


Damit lassen sich schon ganz schön aussagekräftige Schaubilder er- 
zeugen, was die zwei Hardcopy’s verdeutlichen sollen. 


Die erste kleine negative 
Spitze war die Entladung 
eines Fotoblitzers, also 
eines relativen schnellen 
Vorganges ! Die anderen 
Zacken entstanden nur 
durch die mutwillige Ab- 
deckung des LDR’s. 


{ 


Digital / fmalog Wandler 


Die Entlade- und Ladekurve 
eines Elko’s. 


Auch der umgekehrte Weg ist möglich, nämlich der, aus einem digitalen 
ein analoges Signal zu machen. 

Das IC ZN-425-E wandelt den Datenwert 9 - 255 in den analogen Wert 8 - 
2,55 V um. Da aber der Ausgang des Wandlers ziemlich hochohmig ist und 
somit die Ausgangsspannung bei Belastung zusammenbricht, wurde am 
Ausgang ein Operationsverstärker LM 324 als Spannungsfolger ange- 
schaltet. Der Ausgangsstrom kann nun bis zu 2% mA betragen. Nicht bei 
allen Operationsverstärkern, mit asymetrischer Stromversorgung, kann 
der Ausgang dem Eingang bis 9 V runter folgen, bei dem LM 324 schon, 
weshalb er auch verwendet wurde. 


Die Programmierung des D/A-Wandlers ist so einfach, daß ich hier auf 
ein Programmbeispiel verzichten möchte, denn jede Ausgabe auf Port-B 
des 8255 wird direkt in einen Spannungswert gewandelt. 
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Port B 
Analog-Output 


EPROM Programmierer (2716,2732) 


Wollten Sie nicht schon immer mal ein Betriebssytem für einen der 
vielen Einplatinencomputer entwickeln ? 

Dann brauchen Sie, außer guten Assemblerkenntnissen, auch ein EPROM- 
Programmiergerät. 


Wenn Sie die folgende mehrfach bewährte Schaltung aufgebaut und die 
Software eingetippt haben, sind Sie dem ersten gebrannten EPROM schon 
sehr nahe gekommen. 


Die vorliegende Schaltung ist für die EPROM-Typen 2716, 2732 und 2732 
A geeignet. Es werden von ihr die erforderlichen Spannungspegel für’s 
Lesen und Programmieren zur Verfügung gestellt sowie ein mittels 
Software erzeugter Programmierimpuls von genau 59 mS. 

Da Pin 21 am EPROM bei dem Typ 2716 der Programmierspannungsanschluss 
und bei den 2732er Typen das Adressbit 11 ist, muß die Umschaltung 
durch Ti vorgesehen werden. 

Die Transistoren T2 - T?7 dienen zur Erzeugung der diversen Spannungs- 
pegel an den Eingängen des EPROM’s. 


Durch das NAND-Gatter wird ein verhängnisvoller "Fehler" der Hardware 
vermieden, denn wenn Sie den Computer einschalten sind alle Ports des 
8255 auf Input geschaltet. Dies wird von der angeschlossenen Schaltung 
als "high" interpretiert und da alle Transistoren leiten würden, -ohne 
diese Sicherungsmaßnahme- einen Kurzschluss der Programmierspannung 
bedeuten. 

Ein weiteres Detail der Schaltung ist die Verwendung des 74 LS 374 als 
Zwischenspeicher des LSB der Adressen. Somit kann jede beliebige 
Adresse sofort angelegt werden. Die Software unterscheidet dabei 
zwischen Daten und Adressen und gibt bei Letzteren einen kurzen 
Latch-Impuls zum Speichern aus. Da noch weitere Bits des B-Ports für 
das MSB der Adresse zur Verfügung stehen kann die Schaltung auch noch 
für höher integrierte EPROMS -nach Veränderung- verwendet werden. 


Nun die Schaltung selbst: 
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DS x n 
----4 3404---- 


eSunssez;j3ssj] -ıod ez 


D4 = 1 N 4148 
= ZPD 4.7 
= ZPD 15 


T1-T6 = BC 347 


Di 


7496 


Inverter: 
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Das zugehörige Basicprogramm des Brenners. Die "Schaufelroutinen"” zum 
Einlesen und Vergleichen könnten in Maschinensprache geschrieben 
werden um Zeit zu sparen. Bei der Programmierungsschleife selbst lohnt 
sich das nicht, denn die 589 mS Verzögerung können nicht umgangen 
werden. 


1989 ’Variablendefinition 

118 '------- 22-000 

128 DEFINT a-z:MEMORY 34999:mem=&88B8:MODE 2 

139 stat=&F8F3: aport=KFEFQ!bport=&FSFL!cport=KFBF2 

199 datin=144:datout=128:clockein=128 

158 DATA &x1029100,ux1@1, &x11100, &x1iQ11190,29847,:’2716 
168 DATA &x1120009,Lx1000Q01,&:x1111Q10,&x11101Q0, 40895,:’ 2732 
178 DATA &X112PO00,Lx1 OO, Ux11N1Q1DW,uLxi01910, 49895,:’ 2732 A 
188 DATA Programmieren,Loeschtest, Auslesen 

198 DATA Vergleich,Laden,Saven, ENDE 


2098 ’------------------ 
219 Menue 

2298, 7232235 Seen 

238 LOCATE 28,3:PRINT STRINGS(35,"-") 

248 LOCATE 28,4:PRINT"----EPROM-BRENNER ----" 
259 LOCATE 28,5:PRINT STRINGS(35,"-") 

268 LOCATE 28,7:PRINT”Typ: >1< 2716" 

278 LOCATE 28,8:PRINT">2< 2732 tnicht 2532 !ı)* 

28@ LOCATE 28, 9:PRINT”)3< 2732 A” 

29@ LOCATE 1,11:INPUT"Bitte Typ waehlen : >" typ 


3289 IF typ<i OR typ>3 THEN PRINT CHRS(7):GOTO 299 

318 LOCATE 28,13:PRINT STRINGS(35,"-") 

328 LOCATE 29,14: PRINT"---- Betriebsart -—! 

339 LOCATE 28,15:PRINT STRINGS(35,"-") 

349 RESTORE 188 

35@ FOR n=8 TO 6:READ md8:LOCATE 25,17+n:PRINT ">"in+tig”c< "5 mdsS:!NEX 
Tn 

368 LOCATE 1,25: INPUT "Bitte Mode-Nummer eingeben: >"jmodus 

378 IF modus<i OR modus?7 THEN PRINT CHRS(7):GOTO 348 

388 LOCATE 1,7:PRINT CHRS(29) 

398 RESTORE 188: PRINT"Ihre Wahl: u} 

4988 FOR n=1 TO modus:READ mdS:NEXT:PRINT mdsj 

419 PRINT" fuer EPROM "5:IF typ=1 THEN PRINT"2716"j ELSE IF typ=2 THEN 
PRINT"2732”"j1 ELSE PRINT "2732 A" 

428 PRINT:PRINT:PRINT:INPUT "Ist das richtig ? (J/N) >"Ix$ 

438 IF UPPERS(x®)="N" THEN CLS:GOTO 239 

449 
452 
468 
478 ON typ GOSUB 519,528,539 

488 ON modus GOSUB 659,359,559,552,759,829,898 

499 CLS:GOTO 238 

529 ’ 

518 RESTORE 159:60T0 348 

528 RESTORE 1698:G0T0 348 

538 RESTORE 178 

548 READ standby, lesen, progaus,progein,maximum:RETURN 
558 
562 
5798 
588 OUT stat,datin:OUT cport,standby 
585 GOSUB 1999 
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598 FOR adr=@ TO maximum 

698 GOSUB 928:0UT cport,lesen:dat=INP(aport) 

619 IF modus=2 THEN IF dat <>&FF THEN PRINT"Adresse "IHEX$S(adr,4)I" : 
Zelle nicht geloescht !” 

628 IF modus=3 THEN POKE (memtadr),dat:PRINT HEXS(dat,2)5" *”} 

639 IF modus=4 THEN IF dat<>PEEK (mem+tadr) THEN PRINT"Programmierfehle 
r bei Adresse : "IHEXS(adr,4) 

648 NEXT adr:OUT cport,standby:RETURN 


668 ’Programmieren 


6938 OUT stat,datout:OUT cport,standby 

685 GOSUB 1998 

69@ FOR adr=9 TO maximum 

728 GOSUB 928:dat=PEEK (adr+mem):IF dat=&kFF THEN 749 ELSE OUT aport,da 


zı@ ’! 
728 DI:OUT cport,progein:FOR n=8 TO 85:NEXT n:OUT cport,progaus:EI 
739 ’! 


788 INPUT "Filename (ohne Extension) eingeben : "Ifiles 
798 IF LEN(file®))8 THEN PRINT CHR$(7):G0TO 788 

82@ LOAD files+".bin", 352028 

818 RETURN 


839 ’M-Code Saven 


8589 INPUT "Filename (ohne Extension) eingeben : "jfile®s 
868@ IF LEN(file®#))8 THEN PRINT CHRS(7):G0TO 858 
878 SAVE tile$+".bin",b,35929,maximum 


939 ’Adre n ausgeben 


959 OUT bport,adr AND 255 

968 OUT cport,clockein OR standby 
978 OUT cport,standby 

988 OUT bport,adr/256 


1938 PRINT:PRINT"IHUHHHHR Bitte EPROM einsetzen und Taste druecken. *%*%* 


1948 WHILE INKEYS="":WEND: RETURN 

2898 FOR n=HIMEM+1 TO HIMEM+1+198@ STEP- 2 

2818 POKE n,&99:POKE n+1,&66:NEXT 

3288 FOR n=35298 TO 35188:PRINT PEEK(n),:NEXT 


Im Mode Lesen wird der EPROM-Inhalt ab Speicherzelle 35088 abgelegt. 
Dieser Bereich kann nun abgesavt werden. Beim Programmieren wird 
ebenfalls der Bereich ab 359289 ins EPROM gebracht. 
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8-Bit Centronicsport 


oder die Überwindung eines Nadelöhrs bei den CPC’s. 


Vor allem bei der Grafikausgabe und bei Ansteuerung eines Druckers der 
mehr als 128 Zeichen bereitstellt, tehlt dieses Bit sehr. 


Eine Lösung, die mit dem bereits bestehenden Druckerport auskommt 
-also ohne Eingriff in den Rechner selbst wegen der Garantie- und alle 
Zeichen von 98-255 senden kann, stelle ich im folgenden vor. Eine 
kleiner Hardwarezusatz plus ein paar Bytes #ür das Treiberprogramm 
sind dabei unumgänglich. 


EEE 2 2 2 2 2 2 2 22 2 2 2 22 22 2 2 272 272 27202 22 202 3 
%* Alle in diesem Buch gezeigten + 
% Hardcopy - Programme benutzen * 
%* diese Erweiterung ! *+ 
IHRAREAHRRRIHHHAHIHHIOHHHISHIHHIIIHIHHIEIHE 


PIN - Nummern 


I. Strobe Ss 
(3 Busy ı 
\9 28 1 


| 
v j 
OÖ 
n5 
I4UOJ-S2Tuo43Jusg JanaN 


J404-S2FUO4YUSI Japrauyas 


© E D <e 2 no 
eb ot zfe 25 
skR3j: „ Sf me! 
Sb je U Ela 07 5: 
[1 } 1} ir} [ 
® ® L} ' 
u \ 
m 
w Enable sI5 
n u 
St 077 
3 
' 1] 
[} 
9x 
4 a 
® Ss 
n 
De < EZ 2° 
Geschlossen : A-Kanalj;8-Bit 
Offen : B-Kanal37-Bit 
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Zu der Schaltung: 


Wie sie leicht teststellen können, werden die unteren vier Bits ( Bit 
8-3 ) aufgesplittet. Diese Bits werden zum einen durchgeschleift und 
zum anderen über einen Zwischenspeicher ( D-FF,74LS75 ) auch für die 
neuen -software-erzeugten- Bits 4-7 bereitgestellt. Das "alte" Bit 4 
des Computers ist nun das notwendige Taktsignal für das Latch. Das 
Signal STROBE wird erst dann ausgelöst, wenn sich alle acht Bit auf 
diese Weise am Port *breitgemacht" haben. Wir haben jetzt eine 
vollständig andere Ansteuerung, um trotzdem noch fertige Software 
benützen zu können, habe ich noch eine Handumschaltung ( 74LS157 ) von 
7 auf 8 Bit vorge en, um nicht jedesmal umstecken zu müssen. 


Das Treiberprogramm: 


Das Programm wird in die Sprungtabelle des CPC eingepatcht, so daß nun 
jede Druckerausgabe über die neue Routine läuft ! 


Es teilt das zu druckende Zeichen im Akku in zwei Halbbytes auf, 
sendet zuerst das obere Nibble, und einen kurzen Impuls auf Bit 4 zum 
Zwischenspeichern im Latch. Das untere Nibble wird dann im Akku 
bereitgestellt und von der normalen ROM- Routine ab Adresse O7F8 (beim 
464) mit dem STROBE-Impuls gesendet, einschließlich dem Warten auf 
BUSY. 


Um den Treiber wieder auszuklinken, rufen Sie bitte den CALL BD28 auf, 
der den indirekten Sprung wieder auf die Original-Routine zeigen läßt. 


Pass I errors: 98 


18 5Patch fuer 8-Bit-Centronics 
29 sdirekt unter HIMEM (+Floppy). 


321 
BDFi 43 indjmp: equ #bdfi 

s2 3 
A653 68 org 42619-48 

79 sInitialisieren 
A653 ZAF2ZBD 82 1d hil,tindjmp+1) 
A656 2279A6 99 1d {retour#+1),hl 
A639 2ZI6BA6 199 1d hl,bit8 
A6SC 22F2BD 112 Id tindjmp+1),hi 
A6SF C9 129 ret 
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148 Ineue Ausgaberoutine 
1589 jist ueber Druckerindirektion 
1689 I4BDFi eingeschleift ! 


178 ı 

A66B BSEF 189 bite: 1d b,#et 
A662 FS 198 push af 
A663 CBSF 299 sri a 
A665 CBSF 219 url a 
A667 CBSF 229 srl a 
A669 CBSF 239 sri a 
A66B ED?9 249 out (c),a 
A66D CBE? 250 set 4,8 
A6&6F ED? 268 out (c),a 
A671 CBA? 278 res 4,a 
A673 ED?79 289 out (c),a 
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A675 Fi 298 pop af 
A676 ESBF 328 and #2+ 
318 }Jump wird berichtigt 
329 jje nach System ! 
A678 CIF897 338 retour: jp “Qa7+8 


Pass 2 errors: 28 


Netzteil 


Um .bei umfangreicheren Schaltungen die rechnereigene 5 Volt Versorgung 
nicht zu überlasten und um zusätzliche Spannungen zur Verfügung zu 
haben, ist ein externes Netzteil vorzusehen. 


Das vorgeschlagene Netzteil liefert folgende Spannungen: 


+5 Volt 1 A 
+9 Volt 29 mA ( für V24 ) 
-9 Volt 289 mA ” a 


+25 Volt 78 mA 1 für EPROM’er ) 


Sowie die gleichgerichtete und geglättete Spannung von ca. 12 Volt vor 
dem Spannungsregler 7825 für Relais etc.. 


Aus Sicherheitsgründen sollten die 229 Volt +ührenden Teile 
berührungssicher gemacht und das ganze Netzteil in ein Gehäuse gebaut 
werden ( Lüftungsschlitze nicht vergessen !). 


Der Regler 7885 muß mit einem nicht zu klein dimensionier- ten 
Kühlblech gekühlt werden. Die Verbindungsleitungen der 5-Volt Spannung 
sowie von Masse sollten einen Querschnitt von I qmm haben. 


Die Reihenfolge beim Einschalten der verschiedenen Spannungsquellen 
sollte so sein: 


1. Floppystation(en) 
2. Erweiterung 
3. Bildschirm 
4. Rechner 
Das Ausschalten sollte in umgekehrter Richtung erfolgen. 
Den Schaltplan des Netzteiles sehen Sie auf der nächsten Seite. 
Damit sind wir beim Schluss des Buches, es folgen noch auf weiteren 


Seiten die Anschlußbelegungen der verwendeten IC’s. 


IHRER 
E22 2 2 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 2 20202 
IERHAHHHHHHHHIRIHHAHIHIHIHIHIHIIE KH 
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IC Amsichten 


LS 245 


GND LS 138 


LS 74 
LS 75 
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LS 88 ı 32 (YıY) 


1A 
2A 
3A 
4A 
5A 
6A 
7A 
GND 


A 
B 
c 
D 
8 
&8 
87 


ULN 2984 / L 294 


145 


CD 49658 


CA 3162 


146 


+5V 


> 
- 
Q 


Re Nu>2Buanm 0 vo 


8255 


D6 8253 
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A? A? A? +5V +5V 
A& A6& A6& AB AB 
AS AS AS A? a9 
a4 Aa Aa All VPP (H) 
A3 A3 AS BE/VPP TE <ı) 
A2 A2 A2 AB Al 
Al Al Ai cE All (H) 
AB AB AB D7 D7 
Da D2 De D6& D& 
Di Di Di DS DS 
D2 D2 D2 D4 Da 
GND GND _GND D3 DS 


2532) 2732 2716 EPROM’s 2716 2732 (2532) 


Programmierspannungen:! 


2716 ‘ 25 V an Pin 21 
2732 : 21 V an Pin 28 
2732 A: 21V an Pin 29 


Programmierimpuls: (58 mS ) 


2716 ® an Pin 18 ( Low nach Highs ÖE dabei High.) 
2732 : an Pin 28 ( Low nach Prg.Spann.ı CE dabei Low.) 
2732 A: an Pin 28 ( Low nach Prg.Spann.j CE dabei Low.) 


( Daten und Adressen müssen vorher schon stabil anliegen ! ) 
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Literaturhinweise 


Das Firmwarehandbuch des Schneider CPC-464 
von Schneider 

Programmierung des Z 88 von Rodnay Zaks 
Sybex-Verlag 

Z-89 Interface-Technik und Anwendung 
Elektor-Verlag 

CPC 464 INTERN, Brückmann, Englisch, Gerits 
Data-Becker-Verlag 

Das große Floppy-Buch, Brückmann, Schieb 
Data-Becker-Verlag 

CPC-Harwareerweiterungen, Schüssler 
Data-Becker-Verlag 

ROM-Listing CPC 464,664,6128, Janneck, Mossakowski 
Markt + Technik Verlag 


Artikel folgender Zeitschriften: 


c't 4/84 und 8/84, Beiträge zu dem A/D-Wandler mit CA 3162 


c’t 8/84, Beitrag zum Timer IC 8253 


c’t 7/83, Beitrag zum 8255 


elrad 1/83, Anwendung des D/A-Wandlers ZN 425 


MC 7/83, EPROMer für versch. EPROM’s. 


sowie Mostek Datenblätter zum Z89-STI und dem Schaltplan zum 
DVM 39@ der Firma RADIO-RIM, München. 


Es wurde der HiSoft-Assembler von Schneider bei allen 
Maschinen - Programmen verwendet. 


Alle Ausdrucke erfolgten mit einem EPSON-kompatiblen SHINWA 
M-88@ Drucker. 
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NOTIZEN 
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Literatur zu Computersprachen 


Joe W. McKinley 
Fortran für Anfänger 


ca. 240 Seiten, ca. 15 Abbildungen, broschiert, 
15x21, Efalin, ISBN 3-88793-091-6 
ca. DM 34,— 


Das Buch wurde auf Grund der Erfahrungen des 
Autors entwickelt, der Fortran für Studienanfänger 
unterrichtete. Es ist gedacht für Hochschulen, Fach- 
hochschulen und Studenten, die damit beginnen, die 
Sprache Fortran zu erlernen. Das Buch ist haupt- 
sächlich für Operationen im Batch-Processing 
Modus geschrieben. Studenten, die die Sprache 
Fortran in einem Interaktiven System oder einem 
Time Sharing-System gebrauchen, werden das 
Buch sehr nützlich finden. 

Das Buch ist für Anfänger gedacht. Das Ziel ist es, 
dem Benutzer in aufbauender Form das Material 
mitzugeben, das für ihn notwendig ist, um mit dem 
Programmieren zu beginnen, und ihm die Kennt- 
nisse zu vermitteln, die notwendig sind, um später 
aus sich heraus weiter zu arbeiten. Die Leistung 
dieses Buches ist eine schrittweise, keine sinnlose 
Annäherung, bei der der Student an der Anfänger- 
und Fortgeschrittenenphase des Programmierens 
direkt teilnehmen kann. 

Die Beispiele stammen aus vielen verschiedenen 
Gebieten der Ingenieurwissenschaft, Mathematik, 
aus wirtschaftlichen und sozialen Fachgebieten, 
genauso wie aus allgemeiner numerischer Analyse 
und Computer-Anwendungen. 


Merl K. Miller/Charles J. Sipp! 


Computerwissen für 
Einsteiger 


192 Seiten, ca. 25 Abbildungen, broschiert, farbi- 
ger Umschlag, 15 x 21, ISBN 3-88793-081-9 
DM 29,80 


Das Buch ist ein leicht zu lesendes Benutzerhand- 
buch für Anfänger, wobei das Wörterverzeichnis den 
wichtigsten Teil des Buches darstellt. Im Kapitel 1 ist 
erklärt, wie das Wörterverzeichnis zu benutzen ist. 
Das Wörterverzeichnis selbst findet man im Kapitel 
5. Kapitel 2 und 3 stellen eine allgemeine Einführung 
in Mikrocomputer dar. Es wird eine einfache Anwen- 
dungsmöglichkeit sowie ein Muster-System ange- 
führt. Es folgt eine Darstellung der Geschichte der 
Mikrocomputer und ihrer Anwendungsmöglichkei- 
ten. Kapitel 4 beginnt mit einer Zahlen-Umwand- 
lungstabelle. Danach wird die Binär-Arithmetik von 
Umwandlungen bis zur Division erläutert. Eine kurze 
Erklärung über Oktal- und Sedezimalzahlen rundet 
das Kapitel ab. Kapitel 6 handelt von der Computer- 


Peter Goodyear 


LOGO - Ein Führer, wie man 
durch Programmieren lernt 


ca. 206 Seiten, ca. 20 Abbildungen, broschiert, 
farbiger Einband, ISBN 3-88793-096-7 
ca. DM 32,— 


Das Buch ist eine Einführung in die Programmier- 
sprache LOGO, gleichzeitig stellt es die Möglichkei- 
ten dar, durch Programmieren zu lernen. Nach der 
Arbeit mit dem Buch ist es dem Leser möglich, in 
LOGO zu programmieren und problemlösende 
Aktivitäten zu entfalten in einer didaktisch erwünsch- 
baren Art und Weise. 

Der Autor hat sich auch mit den Experimenten 
anderer Leute mit LOGO, seiesin Schulen, Universi- 
täten und Forschungslaboratorien beschäftigt, und 
auch seine eigenen Erfahrungen mit dem Lehren 
von LOGO und dem Aufbau von LOGO-Projekten in 
das Buch eingearbeitet. LOGO wird als eine leben- 
dige Computersprache gesehen, die zu einer 
beständigen Anpassung und Veränderung befähigt. 


Logik. Man wird dadurch zwar nicht zum Experten, 
es ist jedoch beim Lesen der technischen Beschrei- 
bungen über Computer behilflich. 

C. J. Sippl ist Autor von über einem Dutzend Büchern 
über Computer. Er ist Verfasser des populären 
»Microcomputer Dictionary and Guide«. Er erhielt 
seinen MA von der University of Miami. 

Merl Miller ist Industrieingenieur, der in die Elektronik 
von der Hobby-Seite her einstieg. Er verlegt selbst 
Computer-Bücher bereits seit vielen Jahren. 


IDEA Verlag GmbH 
Brucker Straße 46 


D-8031 Gilching 
Telefon (08105) 9124 
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Computer-Spitzenbücher 


A.G. Gerand 


Der Computer schreibt sich 


selbst ein Programm 
Beschreibung eines COBOL Menüprogramm- 
generators 


ca. 200 Seiten, broschiert, 15x 21, 
ISBN 3-88793-082-7 ca. DM 36,— 
Über Programmgeneratoren wird in letzter Zeit viel 
geschrieben und diskutiert. Im vorliegenden Buch 
soll ein COBOL Menüprogrammgenerator vorge- 
stellt werden. Die Ausgabe dieses Programmsy- 
stems ist ein COBOL Programm, welches die Ver- 
waltung einer Vielzahl von Anwenderprogrammen 
bewerkstelligt. Eine hierarchisch gegliederte Menü- 
steuerung übernimmt die für den EDV-Laien oft 
schwierigen und langwierigen Aufrufe von bis zu 
59.094 Anwenderprogrammen. Durch Auswahl des 
einem bestimmten Programm entsprechenden 
Auswahlpunktes in irgendeinem Menü — deren es 
bis zu 7381 geben kann — wird das betroffene 
Programm durchgeführt, und nach dessen Beendi- 
gung kann in der Menüsteuerung an derjenigen 
Stelle fortgesetzt werden, von der aus das Programm 
aufgerufen wurde. Zur Erstellung dieses Programms 
braucht der Benützer lediglich die benötigten Infor- 
mationen dem Editor-Modul bekanntzugeben. Eine 
Help-Funktion gibt jederzeit, auch während der 
Eingabe, Hilfestellungen. Das Generator-Modul 
erzeugt schließlich den Programmcode. 

Durch die Verwendung einer Parameterdatei sind 
Änderungen in der Menüsteuerung jederzeit ohne 
jeglichen Programmieraufwand dadurch möglich, 
daß die Parameterdatei mit Hilfe des Editor-Moduls 
entsprechend geändert wird und anschließend der 
Generator die aktualisierte Version des Menüpro- 
grammes erzeugt. 

Aufgrund der ausführlichen textlichen Erläuterungen 
zum abgedruckten Programmtext ist das Funktions- 
prinzip auch für weniger versierte Programmierer 
verständlich. Dieses Bemühen wird auch durch die 
Verwendung von Programmiersprachenunabhängi- 
gen, die grobe Programmlogik darstellenden Kon- 
strukten, sogenannte Struktogramme, unterstützt. 
Die Bedeutung der auch NASSI-SCHNEIDERMANN 
genannten Diagramme ist im Anhang leicht ver- 
ständlich erläutert. 

Durch den modularen Aufbau des Programmpakets 
ist es auch möglich, ohne nennenswerte Änderun- 
gen eine eingeschränkte Version zu implementieren, 
deren Programmcode einen äußerst geringen 
Bedarf an Hauptspeicher hat. Dadurch soll die 
Einsetzbarkeit des Programms nicht auf Systeme 
mit großem Hauptspeicher beschränkt bleiben. 


K. W. Hillerkus 


BASIC-Fehler vermeiden, 
abfangen, melden, suchen, 
finden, mitarbeiten lassen, ein- 


deutschen, korrigieren 
Geschrieben in MBASIC und CP/M für Rat- 
lose, Einsteiger, Aufsteiger, Anwender 


ca. 120 Seiten, broschiert, farbiger Umschlag, 
15 x 21, ISBN 3-88793-057-6 ca. DM 21,80 


Das Buch ist ein kleines Handbuch zur schnelleren 
und effektiveren Fehlersuche für Hobbyprogrammie- 
rer. Immer wieder sieht sich der Heimprogrammierer 
vor das Problem gestellt, Fehler, die sich in's Pro- 
gramm eingeschlichen haben, aufzufinden und 
auszumerzen. Diese oft lästige Tätigkeit erfordert 
zumeist einen hohen Zeitaufwand. Der Ratgeber 
gibt Hilfestellung, wie man das Problem der Fehler- 
suche am wirksamsten unter erheblicher Einsparung 
von Zeit angehen kann. Das Handbuch ist übersicht- 
lich aufgebaut, bei den auftretenden Fehlern werden 
immer Ursache und Abhilfe genau erklärt. Das Buch 
eignet sich sowohl für Anfänger als auch Fortge- 
schrittene. 


Berthold Freier 


25 Extra-Spiele mit Köpfchen für den Schneider CPC und 


ähnliche Computer 
104 Seiten, broschiert, 15 x 21, DM 21,90 


Die Grundidee dieses Buches ist das Ziel aller Spiele: Sie 
sollen in der Gemeinschaft Vergnügen bereiten! Unterschie- 
de gibt es natürlich in den Ausführungen. Einige Programme 
prüfen nur Ihr Gedächtnis, andere Ihre strategischen Fähig- 
keiten, manche lassen Ihrer Kreativität freien Spielraum 
oder dienen der Bildung. Großer Wert wurde darauf gelegt, 
daß eine möglichst umfangreiche Anzahl von Spielen von 
mehreren Teilnehmern gemeinsam gespielt werden kann. 


In einigen Fällen bietet sich der CPC als Mitspieler an. 


Je nach Neigung und Fähigkeiten kann jeder die.Programme 
ausbauen, etwa die Grafik erweitern, Farben ändern, andere 
Zeichen verwenden oder die Soundteile mit ENV-und ENT- 


Kurven verbessern. 


Das Buch ist in BASIC der Schneider Colour Personal Com- 
puter geschrieben, es dürfte aber sehr wohl möglich sein, die 
Programme für ähnliche Computer umzuschreiben. Hierbei 


helfen die BASIC-Vergleichslisten. 


IDEA Verlag GmbH 


Brucker Str. 46 : 8031 Gilching 
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Das Buch soll keine grundsätzliche -Einführung:in die Maschinen- 
sprache der Z-80 CPU sein, sondern eine Sammlung interessan- 
ter und wichtiger Routinen speziell auf dem Schneider CPC 464 
darstellen. 

Im ersten Teil wird gezeigt, wie man von einem gestellten Pro- 
blem zu einem lauffähigen Maschinen-Code-Programm gelangt. 
Dieser Teil kann als Grundstock für eine Maschinensprache- 
Bibliothek verwendet werden. 
Der zweite Teil wendet sich an die vielen Hardware-Bastler unter 
den Schneider-Anwendern. Hier werden einige Leckerbissen an 
Erweiterungen beschrieben, sowohl hinsichtlich des Aufbaus als 
auch der Programmierung. 


Aus dem Inhalt: 

@ Werkzeugkiste mit vielen Tips zu ROM-Routinen 

© BASIC-Erwelterungen durch neue Befehle wie Ares, Text, 
Fill, Copy, usw. 

@ Aufrufe der computerinternen Rechenroutinen 

® Verschiedene Schnittstellen wie 8-Bit Centronics, V-24, 24 

- frei programmierbare I/O-Leitungen 

© 8-Kanal Analog /Digitalwandler 

@ Digital/Analogwandler- 

® Frequenzzähler 

© Timer 

© EPROM-Programmiergerät für 2716 u. 2732 

© und viele, viele Routinen zum Sortieren, Codewandeln, Ein- 
Ausgeben, u.a.m. 
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